Ввести с клавиатуры 10 целых чисел.Подсчитать количество нечётных (в паскаль турбо)
Ввести с клавиатуры 10 целых чисел.Подсчитать количество нечётных (в паскаль турбо)
Гость
Ответ(ы) на вопрос:
ГостьProgram;
Uses vincrt;
Var i,n: integer
Begin
i:=0;
writeln('n=');
Raedln(n);
If (n mod 2 = 1) then i:=i+1;
End.
Не нашли ответ?
Похожие вопросы