Pascal

Вычислите среднее арифметическое делителей заданного числа Х

Question

Информатика

Савватий

19 ноября, 15:32

Pascal

Вычислите среднее арифметическое делителей заданного числа Х

+1

Ответы (1)

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

Светозар · Answer 1

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.

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

Pascal

Вычислите среднее арифметическое делителей заданного числа Х