Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.