Вводится последовательность из N положительных целых чисел, 0 - конец последовательности. Найти количество всех четных элементов последовательности.

Нужна ШАЯ и программа

Question

Галатея

26 октября, 21:58

+3

Ответы (1)

Знаете ответ на вопрос?

Аделла · Answer 1

Var n, i:Integer;

begin

i:=0;

repeat

Readln (n) ;

if (n mod 2=0) and (n0) then

Inc (i) ;

until n=0;

Writeln;

Writeln (i) ;

readln;

end.