Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
yakymov
07.12.2021 14:38 •
Информатика
Среди 20 вводимых чисел выберите все кратные 2 или 5 и посчитайте их сумму
Показать ответ
Ответ:
marekatyan
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 оценок)
Популярные вопросы: Информатика
Nikslava
13.10.2021 10:25
Вычислить 1/(n+1)! составить программу. паскаль...
pazyny
21.02.2021 20:22
Составить блок-схему и программу увеличения большего из двух чисел на 1...
svetasvetashi
16.12.2021 07:19
Напишите программу заполнения одномерного массива любым и найдите сумму всех элементов....
всмпасы
27.12.2020 22:06
Перевести дробное число из десятичной системы счисления в пятеричную. 7,76(10)- ? (5)...
BlackJack11RUS
18.11.2020 08:58
Определите полный набор исходных данных для решения следующих .а) вычисление площади прямоугольника б) приготовление обеда в) приготовление салата по рецепту г)выполнение...
Лолери
18.11.2020 08:58
Два брата - петя и вася - работают на одном компьютере. однажды на жестком диске поселился вирус, который заразил некоторые файлы. по сведениям пети, таких файлов...
Bow9718
17.05.2023 22:29
Нельзя отнести к долговременным носителям информации а)дискету б)молекул днк в)радиоволны г)cd-rom...
xokkey1
17.05.2023 22:29
Что такое интерактивная презентация...
anastasiyaroma11
25.05.2021 00:28
Уполикарпа есть n монет, достоинство i-й монеты равно ai. поликарп хочет распределить монеты по своим карманам, но он не может класть две монеты одинакового достоинства...
Fracian
28.08.2021 14:34
Богатырь стоит перед камнем на распутье. на камне надпись: налево пойдешь- жену найдешь, направо пойдешь - богатство найдешь, прямо пойдешь - славу найдешь. сколько...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.