Определите количество четных элементов в последовательности, завершающейся числом 0. Само число 0, и все, что следует за ним, учитывать не нужно.

Question

Гаря

27 апреля, 23:12

+4

Ответы (1)

Знаешь ответ?

Майа · Answer 1

var i, k:byte;

begin

i:=1;

while i0 do begin

readln (i);

if (i0) and (i mod 2=0) then inc (k);

end;

writeln (k);

end.