Anti-primes: Difference between revisions
→{{header|GW-BASIC}}: Clarified implementation of BASIC.
(→{{header|GW-BASIC}}: Clarified implementation of BASIC.) |
|||
Line 620:
=={{header|BASIC}}==
==={{header|GW-BASIC}}===
<syntaxhighlight lang="basic">10 DEFINT A-Z▼
{{works with|BASICA}}
20 N=1▼
30 IF S>=20 THEN END ELSE F=1▼
20 DEFINT A-Z
50 IF N MOD I=0 THEN F=F+1▼
60 NEXT▼
80 PRINT N,▼
90 M=F▼
80 IF F<=M GOTO 120
100 S=S+1▼
110 N=N+1▼
120 GOTO 30</syntaxhighlight>▼
{{out}}
<pre> 1 2 4 6 12
|