是 Free Pascal 求100到999中的水仙花数.（若三位数ABC,ABC=A的三次方+B的三次方+C的三次方,

是 Free Pascal
求100到999中的水仙花数.（若三位数ABC,ABC=A的三次方+B的三次方+C的三次方,则为水仙花数.例如153,1三次+5的三次方+3的三次方=153）
lchy_xq 1年前 已收到1个回答 举报
赞

wjm2009 幼苗

共回答了18个问题采纳率：83.3% 举报

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.

1年前

8
可能相似的问题

你能帮帮他们吗

精彩回答

Copyright © 2024 YULUCN.COM - 雨露学习互助 - 17 q. 0.029 s. - webmaster@yulucn.com