电脑编程问题

	From TeacherZH 约数之和

背景 Background 为了for beginngers，特设此题，^_^ 描述 Description 键入一个自然数 ，求这个自然数的所有约数之和 输入格式 Input Format 一个整数N<32768 输出格式 Output Format 一个整数(n所有约数之和)

Free Pascal语言

var
i,j,n:longint;
begin
readln(n);
for i:=1 to n do
if n mod i=0 then j:=j+i; {直接搜索，如果i可以被n整除则j的值（总和）加上i}
writeln(j);
readln
end.

pascal的。 var a,s,i:longint; begin read(a); s:=0; if a<=0 then writeln('Error!') else begin for i:=1 to (a div 2) do if (a mod i)=0 then s:=s+i; writeln(s+a); end; end.

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息