Сколько нечетных среди n введенных причем надо вводить эти числа с клавиатуры n раз

Question

Информатика

Агафоклия

15 апреля, 06:46

Сколько нечетных среди n введенных причем надо вводить эти числа с клавиатуры n раз

+5

Ответы (1)

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

Александринка · Answer 1

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.