Question

Напишите программу, которая в последовательности натуральных чисел определяет количество всех чётных чисел, кратных 9. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0(0-1000). Введённые числа не превышают 30000. Программа должна вывести одно число: количество всех четных чисел, кратных 9. Сделать с массива.

Пример работы программы:
Входные данные:
27
24
18
22
36
0

Выходные данные:
2

Answer 1

c = 0

while True:

n = int(input())

if n % 9 == 0 and n % 2 == 0:

c += 1

print(c)

Answer 2

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.