Ввести с клавиатуры 5 чисел, подсчитать сколько из них не четных, вывести результат на экран.
Ввести с клавиатуры 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.
Не нашли ответ?
Похожие вопросы