Ответ:

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:

• ##
• var c := 0;
• repeat
•  var x := ReadInteger;
•  if x = 0 then break;
•  if x.IsEven and x.Divs(9) then c += 1;
• until false;
• c.Print