Определите количество четных элементов в последовательности, завершающейся числом 0. Само число 0, и все, что следует за ним, учитывать не нужно.
Ответы
Ответ дал:
0
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.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад