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

293

471

Посмотреть ответы 2

Ответы на вопрос:

sophiaukraineoyy0ey

Информатика

4,6(4 оценок)

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.