Question

设计一程序用visual foxpro

输出1000内水仙花
水仙花为ABC
ABC＝A＾3+B＾3+C＾3

Answer 1

clear
set talk off
for i=100 to 999 step 1
n=str(i,3)
if i=((val(substr(n,1,1)))^3+(val(substr(n,2,1)))^3+(val(substr(n,3,1)))^3)
?i
endif
endfor
set talk on
return