Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
аньён1
08.02.2021 14:34 •
Информатика
Нужно составить программу в paskal ' e для нахождения суммы ряда нечётных чисел с использованием , где n - количество чисел, i - число для цикла, summa - сумма чисел.
Ответ:
ShkolnikN15
02.10.2020 08:17
Summa:=0;
for i:=1 to n do
if a[i]mod 2 <>0 then summa:=a[i]+summa;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Anonim1678
20.06.2020 04:03
Вибери зі списку правильну відповідь.Що з переліченого не є алгоритмом?формула периметра прямокутникарецепт приготування борщупрограма для комп‘ютерапрогноз погоди...
Sabina0786
05.02.2022 15:57
• Как отображается графическая информация векторным и растровым методом? ...
TheGrigory
10.05.2023 12:31
С++ написать программу получить все элементы массивов а, которые не входят в массив b (заранее не выдавать программы с кучей ошибок)....
R456
15.03.2023 10:20
Информационное сообщение объёмом 1,5 кб содержит 3072 символа.определеить информационный вес одного символа использованного алфавита....
катя4812
09.09.2021 07:20
Объём сообщения равен 13 кбайт сообщение содержит 13312 символа какова мощность алфавита ?...
danya13112004
31.01.2023 04:30
Выберите верное равенство. а) а - b - c = b - (a + c) ; б) a - b + c = (a - c) +b ; в) (a + b) - c = c - b + a ; г) a + b - c = b - c + a....
arinakovtik
31.01.2023 04:30
Цитатная характеристика вакулы из ночь перед рождеством...
innassss
31.01.2023 04:30
Переведите carefully and especially...
NikolayMakaren
31.01.2023 04:30
Решитн этот пример7128: 297 столбиком...
irakar03
31.01.2023 04:30
2кг 200 г 7 куб м 20 куб дм 9 км 200 м увеличь в вас умаляю мне...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
for i:=1 to n do
if a[i]mod 2 <>0 then summa:=a[i]+summa;
end.