水仙花数.prg

寻找1-100之间的水仙花数的源程序 三角形面积 素数 追加纪录 乘法口诀。大家都可以随便下载 资源共享嘛

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
      ? x
    endif
 endfor