Регистрация
pMatbq
01.08.2020 00:17
Информатика
Есть ответ 👍

Pascal: среднее арифм. всех целых чисел от 100 до b (b> =100)

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

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

sabegov1234
sabegov1234
4,7(38 оценок)
Rogram z1; var n,i,s,k: integer; begin writeln ('n='); readln (n); s: =0; k: =0; if n> =100 then for i: =100 to n do begin s: =i+s; k: =k+1; end; writeln (s/k); readln ; end.
irinaa10
irinaa10
4,5(18 оценок)
Уже есть ответ:

Популярно: Информатика