Информатика, опубликовано 2018-08-22 18:34:26 by Гость
Помогите пожалуйста! С клавиатуры вводится последовательность чисел, 0 конец последовательности. Посчитать сколько введено четных чисел. Нужно составить программу для Паскаль
Ответ оставил Гость
Var x,y:integer;
begin
repeat
readln(x);
y := y + 1 - (x mod 2);
until x = 0;
writeln(y);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на