С клавиатуры вводится n чисел. Найти сумму и количество трехзначных и нечетных чисел. Pascal

Question

Информатика

Евграф

4 сентября, 02:38

С клавиатуры вводится n чисел. Найти сумму и количество трехзначных и нечетных чисел. Pascal

+5

Ответы (1)

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

Самона · Answer 1

Var a, b, n, kol:integer; begin

writeln ('введите количество чисел') ;

readln (n) ;

kol:=0;

for a:=1 to n do begin

writeln ('введите число') ;

readln (b) ;

if (b mod 2 0) and ((b>99) and (b<1000)) then kol:=b+kol;

end;

writeln ('количество нечётных трёхзначных чисел = > ', kol) ;

end.