【程序说明】
统计2~M中有多少个素数(只能被1或自身整除的整数称为素数)。 【程序】 SET TALK OFF CLEAR INPUT “M=”
TO M S=0 {{U}}(10) {{/U}} IF SS(I)
S=S+1 ?? STR (1,5)
ENDIF ENDFOR ? STR(5,5) SET TALK ON FUNC SS {{U}}(11)
{{/U}} FOR J=2 TO X-1 {{U}}(12) {{/U}}
EXIT ENDIF ENDFOR IF J=X RETU
.T. ELSE {{U}}(13)
{{/U}} ENDIF ENDFUNC