Определите количество четных элементов в последовательности…

Question

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

Answer 1

46

farfano

13 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить