Simone
四位来数各位上大的数字的源四次方之和等360问答于本身为四叶玫瑰数。
实现源歌斗理失球离音声表谈叫码如下：
programroseNumber;
var
a,b,c,d:longint;
functionfou延r(n:longint):long由常int;
begin
four:=n*n*n*n;
end;
begin
fora:=1to9do
forb:告言预政能肥段=0to9do
f围干编触影orc:=0to9巴犯以呢映脚效地真破do
ford:=0to9do
begin
if(1000*a+100*b+10*c+d=four(a)+four(b)+four(c)+four(d))then
begin
writeln(a,b,c,d);
end
end
end.
