Question

Для вводимых N чисел с клавиатуры посчитайте кол-во чётных чисел

Answer 1

var n,k:integer;

begin

k:=0;

writeln (' Признак окончания ввода - число 0');

readln(n);

while n<>0 do begin

if n mod 2 = 0 then k:=k+1;

readln(n);

end;

writeln (k);

end.