Сколько нечетных среди n введенных причем надо вводить эти числа с клавиатуры n раз
Сколько нечетных среди n введенных причем надо вводить эти числа с клавиатуры n раз
Гость
Ответ(ы) на вопрос:
Гостьbegin
write('Введите n: ');
var n := ReadInteger;
var c := 0;
for var i:=1 to n do
begin
write ('Введите целое число: ');
var x := ReadInteger;
if x mod 2 <> 0 then
c += 1;
end;
writeln('Количество нечетных равно ', c);
end.
Не нашли ответ?
Похожие вопросы