Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Ромашка11441
27.11.2021 15:09 •
Информатика
Среди 20 вводимых чисел выберите все кратные 2 или 5 и посчитайте их сумму
Показать ответ
Ответ:
zachar3
05.10.2020 14:16
Program n1;
var i,a,sum: integer;
begin
sum:=0;
for i:=1 to 20 do
begin
readln(a);
if (a mod 2=0) or (a mod 5=0) then
sum:=sum+a;
end;
writeln(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
bratan9
17.01.2023 20:14
Заполните массив 100 случайными числами. выведите получившиеся список на экран по 10 элементов в ряд. для вывода списка Напишите отдельную функцию в качестве аргумента она должна...
hhhnnnvvv
23.04.2022 17:11
Какой датчик изображен на рисунке? (*) ультразвуковой датчик инфракрасный датчик датчик движения гироскопический датчик...
katyaibadova
05.09.2020 01:30
Изображение было оцифровано и записано в виде файла без использования сжатия данных. получившийся файл был передан в город а по каналу связи за 75 секунд. затем то же изображение...
19zm19zm
01.02.2022 23:55
Вы играете в игру с колодой Гоблинов-смутьянов. Вы собираетесь сыграть T ходо. В начале каждого хода вы добавляете одного нового Гоблина-смутьяна в свою армию. Гоблин-смутьян-...
vladholyngha
20.04.2023 06:01
Укажите правильное описание массива a) Var c: ARRAY [1..50 OF REAL];b) Var b:array[1..180] of integer;c) Var x, y: array of integer [1..100] of real;...
MaryOnegina
30.05.2021 04:51
Не поняла как решается . (2) + 1101010101(2) б) 1011001010(2) + 101011010(2) в) 1110111000,101(2) + 1101100011,101(2) г) 1430,2(8)+666,3(8) д) 388,3(16)+209,4(16)4: а) 1111100010(2)...
KatyGey
24.10.2021 15:31
Найдите сумму элементов одномерного массива, состоящего из 10 элементов. разделите каждый элемент исходного массива на полученное значение. результат получите в том же массиве.результат...
gek45
16.02.2021 22:51
Lg(4x-1)≤1неравенство...
Anna567894
14.09.2022 16:14
Дыбвс үндестігін көрсетіңз а) сыныбым б) балалар в) қыздыңГ) асанмен ...
mashamalenkova
17.04.2020 20:55
Определи, какое утверждение правильно описывает жидкость...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i,a,sum: integer;
begin
sum:=0;
for i:=1 to 20 do
begin
readln(a);
if (a mod 2=0) or (a mod 5=0) then
sum:=sum+a;
end;
writeln(sum);
end.