用qbasic求20到50之间的质数

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/12 10:04:12

用qbasic求20到50之间的质数
用qbasic求20到50之间的质数

用qbasic求20到50之间的质数
CLS
FOR I=20 TO 50
JS=0
FOR J=1 TO I
IF I MOD J=0 THEN
JS=JS+1
END IF
NEXT J
IF JS=2 THEN PRINT I
NEXT I
END

http://www.itn8.com/soft/8/53/2007/200711089614.html

FOR I=20 TO 50
F=0
FOR J=1 TO INT(SQR(I))
IF I MOD J =0 THEN F=1:EXIT FOR
NEXT J
IF F=0 THEN PRINT I ELSE F=0
NEXT I