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

Question

Информатика

Василей

10 августа, 23:04

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

+3

Ответы (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.