Помогите решить пожалуйста, pascalДаны 5 натуральных чисел: a1,a2,a3,a4,a5Определить количество чётных и нечетных чисел

Question

1 год назад

5

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

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

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

1 ответ:

xblack [21] · Answer 1 · 2023-09-30T00:37:21+03:00

<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>

begin

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

loop 5 do

if ReadInteger.IsOdd then Inc(ko)

else Inc(ke);

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

end.