Определите количество четных элементов в последовательности, - вопрос №496915 от помогите1177 14.03.2023 04:59

Question

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

помогите1177 · 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....