Определите количество четных элементов в последовательности, - вопрос №0496740 от naivnaya08 03.12.2022 01:37

Question

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

naivnaya08 · Answer

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