以下是引用pjtyzyq在2020-6-11 07:59:09的发言:
CLEAR
input to xx
zz=xx
yy=""
FOR i=2 TO xx
IF MOD(xx,2)=0 THEN
yy=yy+"*2"
xx=xx/2
ELSE
if MOD(xx,3)=0 THEN
yy=yy+"*3"
xx=xx/3
ELSE
IF MOD(xx,5)=0 THEN
yy=yy+"*5"
xx=xx/5
IF MOD(xx,7)=0 THEN
yy=yy+"*7"
xx=xx/7
ENDIF
ENDIF
ENDIF
ENDIF
ENDFOR
IF xx<>1
yy=yy+"*"+allTRIM(STR(xx))
endif
?alltrim(str(zz))+"="+SUBSTR(yy,2,LEN(yy)-1)
不知是否实现了你的想法?
我试了下,含有11,13,17等因子的,就出错了。
四楼的正确