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

Question

Pascal ABC Напишите программу, которая позволит подсчитать количество четных чисел, вводимых с клавиатуры. Вывод результата по вводу нуля

Answer 1

program top;

var k,x : integer;

 begin

  k := 1;

  while k <> 0 do

  begin

     readln(k);

     if k mod 2 = 0 then

       x := x +1

   end;  

   write(x-1);

 end.