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