Question

下列程序是计算100以内素数之和,素数是大于1且只能被1和自己整除的自然数.要求：1、项目中有一个程序文件Pcode,件

Answer 1

SET TALK OFF

CLEAR

sum1=0

FOR i=2 TO 100

prime=.T.

FOR j=2 TO i-1

IF MOD(i,j)=0 && 修改1

Prime=.F.

EXIT

ENDIF

ENDFOR

IF prime

?i

sum1=sum1+i

ENDIF

ENDFOR

?"100以内素数之和为：",sum1 && 修改2

SET TALK ON

RETU