用b语言求abc=a^3+b^3+c^3求出所有的水仙花数,6.求100—999中的水仙花数（若三位数ABC=A^3+B^+C^3)则称此数为水仙花数.(友情提示：把ABC通过mo...

共回答了13个问题采纳率：92.3%

我用FreeBasic做的

DIM AS INTEGER I,T,S,D

FOR I=100 TO 999

T=I:S=0

DO

D=T MOD 10

S=S+D^3

T=T10

LOOP UNTIL T=0

IF S=I THEN PRINT I,

NEXT I

SLEEP

END

附答案：

153,370,371,407

其他的水仙花数：

水仙花数四位的水仙花数共有3个：1634,8208,9474；

五位的水仙花数共有3个：54748,92727,93084；

六位的水仙花数只有1个：548834；

七位的水仙花数共有4个：1741725,4210818,9800817,9926315；

八位的水仙花数共有3个：24678050,24678051,88593477

……

……

使用高精度计算,可以得到超过INTEGER类型上限的水仙花数：

5:93084

5:92727

5:54748

6:548834

7:9800817

7:4210818

7:1741725

7:9926315

8:24678050

8:24678051

8:88593477

9:146511208

9:912985153

9:472335975

9:534494836

10:4679307774

11:32164049650

11:40028394225

11:42678290603

11:49388550606

11:32164049651

11:94204591914

11:44708635679

11:82693916578

14:28116440335967

16:4338281769391370

16:4338281769391371

17:35875699062250035

17:21897142587612075

19:3289582984443187032

19:4929273885928088826

19:4498128791164624869

20:63105425988599693916

21:449177399146038697307

21:128468643043731391252

23:27907865009977052567814

23:35452590104031691935943

23:27879694893054074471405

23:21887696841122916288858

24:174088005938065293023722

24:188451485447897896036875

1年前

追问

2

用VB做的程序代码是什么