set talk off
clear &&清屏
c=0 &&計(jì)數(shù),清零,如果不需要計(jì)數(shù),刪除此句
for i=0 to 999 &&范圍0-999之間循環(huán)
g=mod(i,10) &&取個(gè)數(shù)
s= mod(int(i/10),10) &&取十位
b=int(i/100) &&取百位
if i=b^3+s^3+g^3 &&判斷百位、十位和個(gè)位的立方和,是否等于原數(shù)
i &&如果滿足條件,打印
c=c+1 &&計(jì)數(shù),滿足一次條件,加1 ,與c=0對(duì)應(yīng),不需要計(jì)數(shù),刪除此句
endif
endfor
"0-999范圍內(nèi)：該數(shù)的值=該數(shù)中各位數(shù)立方和共計(jì)："+alltrim(str(c))+"個(gè)"
return