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

ivahinzeha475 ivahinzeha475    1   30.03.2019 06:00    7

Ответы
tinn1 tinn1  27.05.2020 15:49

var i,k:byte;

begin

i:=1;

while i<>0 do begin

readln(i);

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

end;

writeln(k);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика