Напишите программу, которая в последовательности натуралных чисел определяет сумму чисел, кратных 7. Программа получает на вход кол-во чисел в последовательности, а затем сами числа. В послледовательности всегда имеется число, кратное 7. Программа должна вывести одно число - сумму чисел , кратных 7.
tanyushchik
3
14.05.2020 22:37
2
Другие вопросы по теме Информатика
Arsen290
26.05.2020 09:36
olesmekhedova
26.05.2020 09:36
насьть
27.04.2021 11:44
ABILAIKhan
27.04.2021 10:53
demon959402
27.04.2021 10:55
Kirillastrovskiy
27.04.2021 10:55
Giy
27.04.2021 10:56
Артем1526
21.04.2020 11:19
IDONTNONOTHING
20.10.2020 05:27
Популярные вопросы
- А. Блок « Ты помнишь? В этой бухте сонной…» Н. Гумилёв «Жираф» Основная...
1 - В предложенном перечне отыщите вещество, водный раствор которого проводит...
3 - Как по немецки время: 9.45 9.50 9.05 9.40 9.55 9.00 9.30 9.10 9.35 9.25...
2 - Даны параллельные прямые a и b, точка A (на одной из прямых) и отрезок...
3 - решить контрольную, только подробно и правильно с рисунком...
2 - Что заставляет шумный зал смлокнуть Руслан и Людмила...
3 - Расскажите , кем был Чжан Хэ , и о его деятельности...
3 - АЛГЕБРА: пункт 8.1; 8.2 проработать, №571-574, 575 (в),576(б), 577(2 столбик),583-584(1-2...
3 - Письменный анализ стихотворения К.Кулиева Каким бы малым не был мой народ...
3 - Какова примерно энергия связи нуклонов в ядре атома лития (6/3Li)? Значения...
1
var n, i, sum, k:Integer;
begin
sum:=0;
readln(n);
for i := 1 to n do
begin
readln(k);
if (k mod 7 = 0)then begin
sum:=sum+k;
end;
end;
writeln(sum);
end.