Question

Помогите решить пожалуйста, pascal

Даны 5 натуральных чисел: a1,a2,a3,a4,a5

Определить количество чётных и нечетных чисел

Answer 1

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

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

begin

 var (ke,ko):=(0,0);

 loop 5 do

   if ReadInteger.IsOdd then Inc(ko)

   else Inc(ke);

 Writeln('Четных ',ke,', нечетных ',ko)

end.