设计一个算法,求所有这样的三位数这些三位数等于它各位数字的立方和.用Qbasic程序求解

题目

设计一个算法,求所有这样的三位数这些三位数等于它各位数字的立方和.用Qbasic程序求解
设计一个算法,求所有这样的三位数这些三位数等于它各位数字的立方和.
n=100
x=1
y=0
i=0
Do
IF n=x^3+y^3+i^3 THEN
PRINT n
END IF
n=n+1
i=i+1
IF i>9 THEN
i=0
y=y+1
END IF
IF y>9 THEN
y=0
x=x+1
END IF
LOOP UNTIL n>=1000
END

答案

你说的是 水仙花数 吗
n=100
x=1
y=0
i=0
Do
IF n=x^3+y^3+i^3 THEN
PRINT n
END IF
n=n+1
i=i+1
IF i>9 THEN
i=0
y=y+1
END IF
IF y>9 THEN
y=0
x=x+1
END IF
LOOP UNTIL n>=1000
END