Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Алёнатян111
18.07.2022 01:58 •
Информатика
Икт найти сумму чисел кратных 5 в интервале 1до n
Показать ответ
Ответ:
rukisha1107
25.06.2020 01:17
Program gt;
var a:array[1..1000]of integer;
i,s,n:integer;
begin
read(n);
s:=0;
for i:=1 to n do
begin
read(a[i]);
if(a[i] mod 5=0)then s:=s+a[i];
end;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Ola1325
03.05.2022 16:44
Почему не вызывается фукция? С++...
tural23
05.06.2022 03:05
Написать программу на c++ На обработку поступает натуральное число, не превышающее 10^9. Нужно написать программу,которая выводит на экран минимальную четную цифру...
лисичка132
24.05.2023 04:13
Что такое LMB для клавиатуры (или мыши) по английской раскладке?...
Kasha09
24.05.2023 04:13
Решите ПЕРЕД ПЕРЕДАЧЕЙ ПО СЕТИ ДАННЫЕ ШИФРУЮТСЯ ТАК, ЧТО ОБЪЕМ ИНФОРМАЦИИ УВЕЛИЧИВАЕТСЯ НА 42%. ОПРЕДЕЛИТЕ, СКОЛЬКО МИНУТ ЗАЙМЕТ ПЕРЕДАЧА ЗАШИФРОВАННОГО ФАЙЛА,...
MrDimon07
01.01.2022 20:05
3. выберите верный ответ: Как называется блок синего цвета в программе Scratch: А) Спринт В) Персонаж D) Сцена E) Изображение...
kekngh
30.06.2020 04:47
1)Дан фрагмент электронной таблицы. В ячейку D2 введена формула= A2*B1+C1. А В С D 1 5 2 4 2 10 1 6 В результате в ячейкеD2 появится значение: 6 14 16 24 2)Дан...
namdokp09srw
10.02.2021 02:52
Запешите правельную последовательность цифр так чтобы получилась программа в результате которой получается рисунок....
kristos24052006
09.02.2020 07:54
2. С клавиатуры вводятся действительные числа. Признак конца ввода - 0. Определить сумму всех чисел в интервале между 0 и 3. Язык программирования - c++...
aretem2002
01.12.2020 08:58
Написать программу на паскале по этой . ввести 3 числа,найти их сумму,произведение и среднее арифметическое....
MarkZz
28.05.2020 19:29
Определить даты,когда не будет осадков и температура будет выше 0.Тема Условия выбора и сложные логические выражения...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array[1..1000]of integer;
i,s,n:integer;
begin
read(n);
s:=0;
for i:=1 to n do
begin
read(a[i]);
if(a[i] mod 5=0)then s:=s+a[i];
end;
writeln(s);
end.