Решить , pascal даны 5 натуральных чисел: a1,a2,a3,a4,a5 определить количество чётных и нечетных чисел

Наночкка Наночкка    2   02.10.2019 07:20    2

Ответы
uikyky uikyky  09.10.2020 11:23
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.


Решить , pascal даны 5 натуральных чисел: a1,a2,a3,a4,a5 определить количество чётных и нечетных чис
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика