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

Question

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

Answer 1

program g_worlds;

var i,x : integer;

 begin

   i := 1;

   while i <> 0 do

   begin

     readln(i);

     if i mod 2 = 0 then

       x := x +1

   end;

   

   write(x-1);

 end.