列出1至10000当中所有的水仙花数！！！
答案:2 悬赏:30 手机版
解决时间 2021-11-20 22:59
- 提问者网友：动次大次蹦擦擦
- 2021-11-20 02:19
列出1至10000当中所有的水仙花数！！！
最佳答案
- 五星知识达人网友：慢性怪人
- 2021-11-20 03:54
program shuixian;
var
a,b,c: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
writeln(a*100+b*10+c,' ');
end.
这个是三位的，再加两层循环就行，自己改吧，追问你能列出所有水仙花数吗？我就是想看看到底有哪几个数。追答0
1
153
370
371
407
total=6
话说你可真的够懒得了
var
a,b,c: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
writeln(a*100+b*10+c,' ');
end.
这个是三位的，再加两层循环就行，自己改吧，追问你能列出所有水仙花数吗？我就是想看看到底有哪几个数。追答0
1
153
370
371
407
total=6
话说你可真的够懒得了
全部回答
- 1楼网友：躲不过心动
- 2021-11-20 04:41
是不是每一数位上的数字的3次方之和等于这个数字的本身？
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯