作业帮是 Free Pascal
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/07 03:43:42
是 Free Pascal
求100到999中的水仙花数.（若三位数ABC,ABC=A的三次方+B的三次方+C的三次方,则为水仙花数.例如153,1三次+5的三次方+3的三次方=153）
求100到999中的水仙花数.（若三位数ABC,ABC=A的三次方+B的三次方+C的三次方,则为水仙花数.例如153,1三次+5的三次方+3的三次方=153）
program ex1;
var
a,b,c,d:integer;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if a*a*a+b*b*b+c*c*c=a*100+b*10+c then
begin
d:=a*100+b*10+c;
write(d,' ');
end;
end.
var
a,b,c,d:integer;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if a*a*a+b*b*b+c*c*c=a*100+b*10+c then
begin
d:=a*100+b*10+c;
write(d,' ');
end;
end.