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

Question

Флора

3 января, 16:16

+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.