Question

Найти количество не чётных чисел из случайно введёных. Паскаль. Срочно. Пожалуйста

Answer 1

Ответ:

PascalABC.NET 3.5.1.2290 + .NET Framework 4.7.1

begin

writeln('Окончание ввода - 0');

var A := ReadSeqIntegerWhile(p -> p <> 0);

A.Where(p -> p mod 2 <> 0).Count.Println;

end.