Anti-primes: Difference between revisions

Content added Content deleted

Inline

@@ Line 620: / Line 620: @@
 =={{header|BASIC}}==
+==={{header|GW-BASIC}}===
-<syntaxhighlight lang="basic">10 DEFINT A-Z
+{{works with|BASICA}}
-N=1
+<syntaxhighlight lang="gwbasic">10 REM Anti-primes
-IF S>=20 THEN END ELSE F=1
+DEFINT A-Z
-IF N<2 GOTO 70 ELSE FOR I=1 TO N\2
+N=1
-IF N MOD I=0 THEN F=F+1
+IF S>=20 THEN END ELSE F=1
-NEXT
-IF F<=M GOTO 110
+IF N<2 GOTO 80 ELSE FOR I=1 TO N\2
+IF N MOD I=0 THEN F=F+1
-PRINT N,
+NEXT
-M=F
+IF F<=M GOTO 120
-S=S+1
+PRINT N,
-N=N+1
+M=F
-GOTO 30</syntaxhighlight>
+S=S+1
+N=N+1
+GOTO 40</syntaxhighlight>
 {{out}}
 <pre> 1             2             4             6             12