Rosetta Code

Almost prime: Difference between revisions

Page Discussion

Almost prime (view source)

Revision as of 00:48, 5 December 2021

22 bytes removed ,  2 years ago
→‎{{header|GW-BASIC}}: Simplified
Line 1,640:
10 'Almost prime
20 FOR K% = 1 TO 5
30 PRINT "k = "; K%; ": ";
40 LET I% = 2
50 LET C% = 0
60 WHILE C% < 10
70 LET AN% = I%: LET AK% = K%: GOSUB 1000
80 IF ISKPRIME <> 0 THEN PRINT USING " ### "; I%;: LET C% = C% + 1
90 LET I% = I% + 1
100 WEND
Line 1,652:
130 END
 
995 ' Check if n (AN%) is a k (AKK%) prime
1000 LET F% = 0
1010 FOR IIJ% = 2 TO AN%
1020 WHILE AN% MOD IIJ% = 0
1030 IF F% = AKK% THEN LET ISKPRIME = 0: RETURN
1040 LET F% = F% + 1
1050 LET AN% = AN% \ IIJ%
1060 WEND
1070 NEXT IIJ%
1080 LET ISKPRIME = (F% = AKK%)
1090 RETURN
</lang>
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/240664"