编写一个已知整数判断其是否是完全数的函数,并用该函数输出1000之内的所有完全数
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/24 04:31:10
编写一个已知整数判断其是否是完全数的函数,并用该函数输出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
编写一个fun函数的功能为判断一个整数是不是完数,然后调用这个函数输出1000之内的所有完数
编写一个判断奇偶数的函数,要求在主函数中输入一个整数,通过被调用函数输出该数是奇数偶数的信息.
编写函数,输出所有的“水仙花”数.(判断型函数)
编写函数void fun(long n),求任意一个小于65535的正整数n的逆序数,并判断该数是否为回文数,是输出“Y
编写一个程序,其功能是判断某个整数是否为素数,且程序中能够调用该函数,以实现求1000内的所有素数和.
使用c语言编写一个程序,判断从键盘输入的整数是否为“完全数”?
C语言,写一个判断是否是素数的函数,在主函数输入一个整数,程序输出该数是否为素数的信息.
编写一个函数判断一个数是否是素数,并在主函数中调用该函数求出所有三位数的素数
编写一个函数用于判断一个三位数是否为“水仙花数”,用主函数调用其实现所有三位数的判断.(水仙花数:
编写判断一个整数是否既是3的整数倍又是7的整数倍的程序,如果是则输出该数.
编写一个函数判断是否素数,在主函数中输入一个整数,调用该函数,在主函数中输出是否素数的信息
编写一个判断素数的函数,主函数中输入一个整数,输出是否是素数的信息