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

Question

Варсонофий

17 сентября, 21:44

+5

Ответы (1)

Знаете ответ на вопрос?

Эллочка · Answer 1

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.