Pascal Вычислите среднее арифметическое делителей заданного числа Х
Answers & Comments
kage1998
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.
2 votes Thanks 3
qwickly
А если я вписываю отрицательное число, он выдает ошибку :(
qwickly
И если я ввожу число 35 выдает мне неправильный ответ
Answers & Comments
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.