Напишите программу, которая в последовательности натуральных чисел
определяет сумму всех чисел, кратных 5. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Программа должна вывести одно число: сумму
всех чисел, кратных 5.
maksim20081986
2
13.04.2020 12:59
4
Другие вопросы по теме Информатика
Натальяроссия
17.08.2019 14:30
твоёсолнце7
01.11.2020 23:01
alenkashkiteva
01.11.2020 23:01
JinkoGloom
01.11.2020 23:01
tatianaishenko1
01.11.2020 23:08
яАРтеМоНкА
11.04.2021 15:59
Гелакси27
11.04.2021 16:02
Vad1mi4
23.07.2019 07:30
Ониг
14.06.2019 17:40
Популярные вопросы
- Автомобилист проехал тоннель за 1 минуту, двигаясь со скоростью 56 км/ч....
2 - Чем закончилась война против интервентов ?...
2 - Задать 5 вопросов к капитанской дочке 4глава...
3 - Что вам понравиоась в саказке царевна лягушка ?...
2 - Двоичная система исчислений. с по информатике. напишите решения и правило...
3 - Слова характеризующие васелису прекрасную...
2 - Наименьшее общее кратное чисел 36 и 24 равно.....
3 - Сложное предложение состоящее из двух частей, между частями стоит запитая....
2 - В неопределенное время когда did ,а когда применять was...
3 - Почему святые воспринимались в народе как идеал человека?...
2
program dsa;
var
i,s : integer;
begin
i := 1;
s := 0;
while i <> 0 do
begin
read(i);
if i mod 5 = 0 then
s := s + i;
end;
write(s);
end.