Напишите программу, которая в последовательности натуральных чисел определяет количество всех четных чисел, кратных 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:
## 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