完善下列程序，其功能是:求出不超过六位数的Armstrong数。所谓Armstrong数是指一个n位的正整数，它的每位数字的n次方之和等于该数本身。例如153=13+53+33，54748=55+45+75+45+85，等等。 CLEAR FORm=1to

admin2019-04-04 119

问题完善下列程序，其功能是:求出不超过六位数的Armstrong数。所谓Armstrong数是指一个n位的正整数，它的每位数字的n次方之和等于该数本身。例如153=13+53+33，54748=55+45+75+45+85，等等。
CLEAR
FORm=1to100000
n=LEN(ALLT(STR(m)))
x=0
FORy=1TOn
c=SUBSTR(ALLT(STR(m))，y，1)x=x+VAL(c)n
ENDFOR
IF (10)
’Armstrong数’，mENDIF
ENDFOR