早教吧作业答案频道 -->其他-->
编写一个已知整数判断其是否是完全数的函数,并用该函数输出1000之内的所有完全数如果一个整数(>1)的各因子(包括1但不包括整数自身)之和等於该整数,称这样的整数为完全数,例如6=1+2+3所以6
题目详情
编写一个已知整数判断其是否是完全数的函数,并用该函数输出1000之内的所有完全数
如果一个整数(>1)的各因子(包括1但不包括整数自身)之和等於该整数,称这样的整数为完全数,例如6=1+2+3所以6是完全数
如果一个整数(>1)的各因子(包括1但不包括整数自身)之和等於该整数,称这样的整数为完全数,例如6=1+2+3所以6是完全数
▼优质解答
答案和解析
//完全数判断函数
function IsPerfectNum(i:LongInt):Boolean ;
var
sum,k:LongInt;
begin
sum:=1;
for k:= 2 to i div 2 do
if i mod k=0 then sum:=sum+k;
if i=sum then
Result:= true
else
Result:=false;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
idx: Integer;
begin
for idx := 2 to 1000 do
begin
if IsPerfectNum(idx) then
begin
Memo.Lines.Add(IntToStr(idx));
end;
end;
end;
输出:
6
28
496
function IsPerfectNum(i:LongInt):Boolean ;
var
sum,k:LongInt;
begin
sum:=1;
for k:= 2 to i div 2 do
if i mod k=0 then sum:=sum+k;
if i=sum then
Result:= true
else
Result:=false;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
idx: Integer;
begin
for idx := 2 to 1000 do
begin
if IsPerfectNum(idx) then
begin
Memo.Lines.Add(IntToStr(idx));
end;
end;
end;
输出:
6
28
496
看了 编写一个已知整数判断其是否是...的网友还看了以下:
1994年圣彼得堡数学奥林匹克(初中)题给定一个15位数,它的各位数字都是0和1,该数能被81整除 2020-04-06 …
一物体在一星球表面时所受到的吸引力为在地球表面所受吸引力的3倍,该星球半径与地球半径相同.若该星球 2020-04-09 …
1.求所有是3 的倍数的三位数的和.2.求所有被6除余1的三位数的和1.求所有是3 的倍数的三位数 2020-05-13 …
48go3和1.5molo2所含氧原子数相等 2020-05-13 …
如何生成一个只由0和1组成的满秩矩阵?设我需要生成一个n行m列的矩阵(其中n>m),要求:1、该矩 2020-06-16 …
现有标准状况下33.6L HCL气体 请回答下列问题1该气体物质的量是2该气体质量是3该气体所含H 2020-06-27 …
常温下,Na2O和Na2O2的混合物溶于水得到澄清溶液,该溶液恰能被含7.3g溶质的盐酸溶液中和1 2020-07-05 …
定积分的几何应用一物体的底面是由曲线y=x^2,x=1和x轴所围成的平面图形,用垂直x轴的平面截该 2020-07-07 …
求由xy=4,y轴,y=1和y=2所围成的平面图形的面积和该图形绕y轴旋转一周所得的旋转体的体积我 2020-07-07 …
(2008•德阳)现将5.6g铁粉投入到94.6g稀硫酸中,两种物质恰好完全反应且得到浅绿色溶液和 2020-07-25 …