Склавиатуры вводится последовательность чисел, 0 конец последовательности. посчитать сколько введено четных чисел. нужно составить программу для паскаль

хах24 хах24    2   14.06.2019 07:40    1

Ответы
cfif20042 cfif20042  10.07.2020 23:17
Var x,y:integer;
begin
  repeat
    readln(x);
    y := y + 1 - (x mod 2);
  until x = 0;
  writeln(y);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика