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

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

Question

Фелиция

21 августа, 13:00

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