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.

Answer 2

мы так не проходили еще, не примут

Answer 3

Откуда мне знать, как вы там у себя "проходили"? И потом, в условии написано решить на паскале. Условие выполнено.

Answer 4

Мы тут даем решение задания так, чтобы оно не противоречило Вашему условию. Но это вовсе не значит, что у нас стоит задача помочь Вам работу любым способом "спихнуть".