Pascal вычислите среднее арифметическое делителей заданного числа х
lesya16146
3
30.05.2019 14:40
3
Другие вопросы по теме Информатика
asyast26
22.06.2021 10:58
1804lenalb
22.06.2021 10:52
wokef1
22.06.2021 10:52
даша2149
13.07.2019 10:00
zamanova05
14.09.2020 23:58
подливка228
14.09.2020 23:11
Anastas1ya1
26.11.2020 07:00
mi262
26.11.2020 07:00
Популярные вопросы
- Сопротивление участка цепи 75 ом, напряжение на его концах 150в. чему равна...
2 - Допишите возможные уравнения реакций a)na +koh= b)mg(oh)2+hcl= c)mg+h2o d)na+mgcl2=...
3 - Сочинение-рассуждение на любую тему...
3 - Написать про любимый рассказ в 7 классе ( кратко)...
2 - Дедушка приехал к нам в гости (из, с) города...
2 - Реши уравнение 1,5 : 0,75= 3 1/7 : b...
1 - Запишите уравнения реакции,с которых можно осуществить превращения c= co2=...
2 - Знайдіть меншу сторону трикутника авс, якщо бісектриса ам ділить сторону вс...
3 - Которыми носителями электрических зарядов создается электрический ток в металлах:...
3 - Вырази: 1сут=; 1неделя= вычисли: 3мин 20сек+1мин 13сек; 3мин 20сек-1мин 13сек...
3
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.