Question

vfp编程:一个小于1000的三位数,个位十位和百位上数的立方和等于该三位数

Answer 1

用循环一一列举, 范围是从100-999

以下代码经测试可用,结果是 153,370,371,407

for i=100 to 999
a=(i/10-int(i/10))*10 &&获取个位数
b=int((i/100-int(i/100))*10) &&获取十位数
c=int(i/100) &&获取百位数
if a^3+b^3+c^3=i &&也可以用 if a*a*a+b*b*b*b+c*c*c=i
?i
endif
endfor

Answer 2

i=100
do while i<1000
a=left(alltrim(str(i)),1)
b=subst(alltrim(str(i)),1,1)
if a*a*a+b*b*b=i&&立方和应该是这个意思吧，忘了
?i

enddo
i=i+1
enddo