Ответы
Ответ дал:
0
var n,s,i:integer;
begin
write('N = '); readln(n);
if n>1 then s:=1+n else s:=1;
for i:=2 to n div 2 do
if n mod i = 0 then s:=s+i;
writeln('S = ',s);
end.
Пример:
N = 12
S = 28
begin
write('N = '); readln(n);
if n>1 then s:=1+n else s:=1;
for i:=2 to n div 2 do
if n mod i = 0 then s:=s+i;
writeln('S = ',s);
end.
Пример:
N = 12
S = 28
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад