pascal求一个数的约数和

显示全部楼层 · 2012-3-18 22:20:37

program area;var a,n,ans:longint;beginread(n);for a:=1 to n dobegin
if (a*a=n)
then begin
ans:=ans+a;
break;
end;
if (a*a>n) then break;
if (n mod a=0) then ans:=ans+a+n div a;end;writeln(ans);end.复杂度为n^0.5...

千问 · 2012-3-18 22:20:37

program area;var a,n,ans:longint;beginread(n);for a:=1 to n dobegin
if (a*a=n)
then begin
ans:=ans+a;
break;
end; ...

千问 · 2012-3-18 22:20:37

var a,b,c,e,s:longint;beginreadln(a);for b:=1to a do beginif a mod b=0 then s:=s+b;end;writeln(s);end....

千问 · 2012-3-18 22:20:37

这个数有多大？...