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

admin2019-04-04  48

问题 完善下列程序,其功能是:求出不超过六位数的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

选项

答案m=x

解析
转载请注明原文地址:https://kaotiyun.com/show/5IhZ777K
0

最新回复(0)