Паскаль АВС

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

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

Question

Информатика

Елисавета

21 марта, 08:18

Паскаль АВС

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

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

+1

Ответы (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.

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

Паскаль АВС

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

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