Склавиатуры вводится последовательность чисел, - вопрос №03083918 от Дима4классы 27.11.2022 14:53

Question

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

Дима4классы · Answer

Var x,y:integer;begin  repeat    readln(x);    y := y + 1 - (x mod 2);  until x = 0;  writeln(y);end....