...一位数字4次方之和,则称为玫瑰花数,求所有的玫瑰花数。

发布网友发布时间：2024-05-14 19:33

我来回答

共2个回答

热心网友时间：2024-05-26 13:02

程序：

var

i,k,x:longint;

begin

for i:=1000 to 9999 do//枚举所有的四位数，因为玫瑰花数一定是四位数

begin

k:=0;

x:=i;

while x>0 do

begin

k:=k+sqr(sqr(x mod 10));//这里可能太快了。这样子，设n表示目前x的各位，则n的四次方为n*n*n*n，而sqr为求平方数，所以sqr(sqr(n))=sqr(n*n)=n*n*n*m。将结果累加到k上比较

x:=x div 10;//截去当前的个位

end;//以上为求该数每一位数字4次方之和，扫描就是从个位到千位的顺序

if k=i then writeln(i);//相等就输出

end;

end.

输出应该是这样，不懂再追问

热心网友时间：2024-05-26 12:56

for i:=1000 to 9999 do
begin
g:=i mod 10;
s:=i div 10 mod 10;
b:=i div 100 mod 10;
q:=i div 1000;
if g*g*g*g+s*s*s*s+b*b*b*b+q*q*q*q=i then writeln(i);
end;
这样更容易理解