水仙花数.bak

来自「寻找1-100之间的水仙花数的源程序 三角形面积 素数 追加纪录 乘法口诀。大家」· BAK 代码 · 共 9 行

sum=0
for x=100 to 999
    x1=int(x/100)
    x2=mod(int(x/10),10)
    x3=mod(x,10)
    if x1*x1*x1+x2*x2*x2+x3*x3*x3=x
       list x
    endif
 endfor