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

Question

Информатика

Амфилохий

17 декабря, 08:14

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

+4

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