10 PRINT
20 INPUT PROMPT "１１ から １００ までの自然数を入力してください。":N
30 PRINT 
40 LET k=4
50 PRINT "2　3　5　7 ";
60 FOR i=11 TO N
70    FOR j=2 TO 10
80       IF MOD(i,j)=0 THEN GOTO 120
90    NEXT j
100    LET k=k+1
110    PRINT i;
120 NEXT i
130 PRINT
140 PRINT 
150 PRINT "以上";N;"以下の素数は";k;"個です。"
160 END





10 PRINT
20 INPUT PROMPT "１０１ から １００００ までの自然数を入力してください。":N
30 PRINT 
40 LET t0=TIME
50 LET k=0
60 FOR i=101 TO N
70    FOR j=2 TO SQR(N)+1
80       IF MOD(i,j)=0 THEN GOTO 110
90    NEXT j
100    LET k=k+1
110 NEXT i 
120 PRINT " 101 から";N;"までの素数は ";k;"個です。"
130 PRINT N;"以下の素数は ";k+25;"個です。"
140 PRINT " 答えを求めるのに要した時間は "; TIME-t0;"秒です。"
150 END