Напишите программу, которая в последовательности натуральных чисел определяет количество всех чисел, кратных 5. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество всех чётных чисел, кратных 5.
danilpostnyh
3
19.05.2020 13:58
1
Другие вопросы по теме Информатика
madara014
24.08.2019 23:30
vikamorgunova0
24.08.2019 23:30
mamaamamma33
09.07.2019 01:50
gen1978
28.01.2021 11:08
списыватель147
28.01.2021 11:08
канна
28.01.2021 11:09
kk64
28.01.2021 11:09
znaniya1402
28.01.2021 11:10
хіха
07.09.2019 21:08
Популярные вопросы
- (не)аккуратно, (не)опрятно, (не)умело. как же?...
3 - Брусок массой 2 кг находится на наклонной плоскости с углом наклона 30 градусов....
3 - Многочлен p(a)= a²-4a+9a²-a-2 к стандартному виду и найдите p(-3)...
1 - Периметр квадрата, вписанного в окр, = 16. найдите радиус описанной окружности....
3 - Найдите радиус окружности если диаметр равен 9 см...
3 - Какое лингвистическое явление лежит в основе каламбура в следующем тексте: люблю...
3 - Какое лингвистическое явление использовано в каламбуре э. кроткого кому таланта...
3 - Fill the gaps. write about you. a: what like doing at the weekend? b: well,...
1 - Периметр правильного шестиугольника, описанного около окружности, =36 см. найдите...
1 - 3чиса 5 минут 27секунд - 2 чиса 48 минут 53 секунд...
2
var
n, k, i, a: Integer;
begin
n:=1000;
k:=0;
for i := 1 to 1000 do
begin
readln(a);
if a = 0 then
begin
break;
end;
if (a <= 30000) and (a>0) and (a mod 5 = 0) then begin
k:=k+1;
end;
end;
writeln(k);
end.