Напишите программу, которая в последовательности натуральных чисел определяет количество всех чётных чисел, кратных 9. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0(0-1000). Введённые числа не превышают 30000. Программа должна вывести одно число: количество всех четных чисел, кратных 9. Сделать с массива.
Пример работы программы:
Входные данные:
27
24
18
22
36
0
Выходные данные:
2
c = 0
while True:
n = int(input())
if n % 9 == 0 and n % 2 == 0:
c += 1
print(c)
Pascal
var
a:array of integer;
i, n:integer;
begin
writeln('введите числа:'); n:=1; i:=0;
while true do begin
readln(n);
if n<>0 then begin
setlength(a, length(a)+1);
a[length(a)-1]:=n;
if (n mod 2 = 0) and (n mod 9 = 0) then
inc(i)
end
else
break
end;
writeln('');
writeln(i);
end.