荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: Chengal (浩气冲天), 信区: Visual
标 题: delphi完数
发信站: 荔园晨风BBS站 (Mon Jul 14 14:49:59 2003), 站内信件
procedure TForm1.Button1Click(Sender: TObject);
var i,total,k,number:integer;
var str:string;
begin
//1000以内的完数，所谓的完数
//是指其所有的因数（不包括）
//其本身）的和与它本身相等的数
str:='1000内的完数有：';
total:=0;
for number:=2 to 1000 do
begin
total:=0;
for i:=1 to number-1 do
begin
if number mod i=0 then
begin
total:=total+i;
end;
end;
if total=number then
begin
str:=str+' '+IntToStr(number)+',';
end;
end;
ShowMessage(str);
end;
end.
--
※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.36.4]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店