有几道题，我不会做，请各位帮忙了。

1、 求[2，5000]之间能被3或5整除的数的个数以及这些数之和。
2、 求[100，1000]之间素数的个数，以及这些数之和。
3、 求裴波那契数列前20项之和。

谢谢！！

请大家帮忙！！！

第1题 求[2，5000]之间能被3或5整除的数的个数以及这些数之和。
SET TALK OFF
CLOSE ALL
STORE 0 TO nSUM,nNUM
FOR I=2 TO 5000
IF MOD(I,3)=0 OR MOD(I,5)=0
nSUM=nSUM+I
nNUM=nNUM+1
ENDIF
ENDFOR
?"[2,5000]之间能被3或5整除的数的个数为",nNUM
?"[2,5000]之间能被3或5整除的数的和为",nSUM

第2题 求[100，1000]之间素数的个数，以及这些数之和。
SET TALK OFF
CLOSE ALL
STORE 0 TO nSUM,nNUM
FOR I=100 TO 1000
lOK=.T.
FOR J=2 TO SQRT(I)
IF MOD(I,J)=0
lOK=.F.
EXIT
ENDIF
ENDFOR
IF lOK=.T.
nSUM=nSUM+I
nNUM=nNUM+1
ENDIF
ENDFOR
?"[100,1000]之间素数的个数为",nNUM
?"[100,1000]之间素数的和为",nSUM

第3题 求裴波那契数列前20项之和。
SET TALK OFF
CLOSE ALL
STORE 1 TO nSUM,nNUM1,nNUM2
FOR I=2 TO 20
nSUM=nSUM+nNUM2
nTEMP=nNUM1+nNUM2
nNUM1=nNUM2
nNUM2=nTEMP
ENDFOR
?"裴波那契数列前20项之和为",nSUM

[此贴子已经被作者于2006-6-13 11:35:50编辑过]

谢谢版主！！！