Написать программу решения слудующией задачи: с клавиатуры вводятся целые числа до тех...

Question

Написать программу решения слудующией задачи: с клавиатуры вводятся целые числа до тех пор, пока не будет введен нуль. Подсчитать количество введенных четных чисел. Вывести результат

Answer 1

Var
x, k: integer;
begin
k:=0;
repeat
readln(x);
if x mod 2 = 0 then
inc(k);
until x=0;
writeln(k);
end.