level 1
CLEAR
LCSTR=[2,3,5,7,]
NUM=4
FOR I=3 TO 500 STEP 2
IF MOD(I,2)!=0 AND MOD(I,3)!=0 AND MOD(I,5)!=0 AND MOD(I,7)!=0
LCSTR=LCSTR+TRANSFORM(I)+[,]
NUM=NUM+1
ENDIF
ENDFOR
?[共有质数:]+TRANSFORM(NUM)+[ 个 ]+'【'+LEFT(LCSTR,LEN(LCSTR)-1)+'】'
2015年01月06日 12点01分