Pascal

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

Question

Информатика

Нинаня

2 февраля, 21:04

Pascal

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

+5

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

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