Задание:
Определите количество четных элементов в последовательности, завершающейся числом 0. Само число 0, и все, что следует за ним, учитывать ненужно.
Решение:
var i,k: byte; begini: =1; while i<>0 do beginreadln (i); if (i<>0) and (i mod 2=0) then inc (k); end; writeln (k); end.
Знаете другой ответ?