Напишите программу, которая в последовательности натуральных чисел определяет количество всех четных чисел, кратных 9. Программа получает на вход натуральные числа количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0

Python

summ = 0

while True:

   i = int(input())

   if i == 0:

       break

   else:

       if i % 2 == 0 and i % 9 == 0: summ += 1

print(summ)

Объяснение:

PascalABC

var k,i:integer;

begin

 k:=0;

 repeat

 begin

   readln(i);

   if (i <> 0) and(i mod 2 = 0) and (i mod 9 = 0) then inc(k);

 end;

 until i = 0;

 write(k)

end.

PascalABC.NET: