Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 5 или 9. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чисел, кратных 5 или 9.
Пример работы программы:
| Входные данные | Выходные данные |
| 15 | 2 |
Вариант решения на языке Паскаль.
var a, count: integer;
begin
count := 0;
readln(a);
while a <> 0 do begin
if (a mod 5 = 0) or (a mod 9 = 0) then count := count + 1;
readln(a);
end;
writeln(count);
end.
Приведем другое решение на языке Python.
count = 0
a = 1
while a != 0:
a = int(input())
if a == 0:
break
if a % 5 == 0 or a % 9 == 0:
count += 1
print(count)