Question

Составить программу Паскаль: найти количество чётных и количество нечетных чисел из четырёх введенных чисел.

Answer 1

найти количество чётных и

Answer 2

// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var Нечетных := ReadSeqInteger('Введите 4 числа:', 4)

     .Where(k -> k.IsOdd).Count;

 Println('Нечетных:', Нечетных, 'четных', 4 - Нечетных)

end.