Регистрация
OrzuUchenichok
14.10.2021 19:41
Информатика
Есть ответ 👍

Pascal вычислите среднее арифметическое делителей заданного числа х

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

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

Goshavasa
Goshavasa
4,7(44 оценок)
Program gt; var s: real; i,h,x: integer; begin read(x); h: =0; s: =0; for i: =1 to x do if(x mod i=0)then begin h: =h+1; s: =s+i; end; s: =s/h; writeln(s); end.
Dasha7011
Dasha7011
4,8(72 оценок)

Объяснение:

1

16

49

100

169

256

361

484

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