Ввести с клавиатуры 5 чисел, подсчитать сколько из них не четных, вывести результат на экран.

Question

Информатика: Ввести с клавиатуры 5 чисел, подсчитать сколько из них не четных, вывести результат на экран.

SaLmOn4663 · Answer

Var x,count,i: integer; Begin For i := 1 to 5 do begin Readln(x); If ((x mod 2) 0 ) then inc(count); End;Write(count);End....