Информатика, опубликовано 2018-08-22 23:15:18 by Гость

Вводится последовательность из N положительных целых чисел, 0 – конец последовательности. Найти количество всех четных элементов последовательности. Нужна ШАЯ и программа

Ответ оставил Гость

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.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.