完全数的程序怎么写？

来源：百度知道 编辑：UC知道 时间：2024/05/06 09:23:16
完全数是指它的因子之和（除本身外）等于其本身，如6=1+2+3.
现在让你编程求出a到b之间的完全数。
输入格式
输入a，b（1≤a≤b≤10000）
输出格式 Output Format
输出完全数及算式

program asdf;
var a,b,s,x,y,t:integer;
begin
readln(x,y);
if x>y then
begin
t:=x;
x:=y;
y:=t;
for a:=x to y do
begin
s:=0;
for b:=1 to a-1 do
if a mod b=0 then s:=s+b;
if a=s then begin
write(a,'=',1);
for b:=2 to a-1 do
if a mod b=0 then writeln('+'b);
writeln;
end;
end;
end.