Паскаль АВС

Моделирование исполнителя "Счётчик".

Дана последовательность целых чисел. Требуется определить, сколько в ней четных и нечетных чисел

Question

Информатика

Нала

12 июля, 21:27

Паскаль АВС

Моделирование исполнителя "Счётчик".

Дана последовательность целых чисел. Требуется определить, сколько в ней четных и нечетных чисел

+3

Ответы (1)

Знаете ответ?

Галиха · Answer 1

Var ar:array[1 ... 5] of integer;

i, k1, k2:integer;

begin;

for i:=1 to 5 do

begin;

readln (ar[i]) ;

if odd (ar[i]) then inc (k1) else inc (k2) ;

end;

writeln ('Чётных:', k2) ;

write ('Нечётных:', k1) ;

end.

Паскаль АВСМоделирование исполнителя "Счётчик".Дана последовательность целых чисел. Требуется определить, сколько в ней четных и нечетных чисел

Паскаль АВС

Моделирование исполнителя "Счётчик".

Дана последовательность целых чисел. Требуется определить, сколько в ней четных и нечетных чисел