18 lines
379 B
Plaintext
18 lines
379 B
Plaintext
10 REM Semiprime
|
|
20 PRINT "Enter an integer"
|
|
30 INPUT N
|
|
40 IF N < 0 THEN LET N = -N
|
|
50 IF N < 2 THEN GOTO 120
|
|
60 LET C = 0
|
|
70 LET F = 2
|
|
80 IF (N / F) * F = N THEN GOTO 150
|
|
90 LET F = F + 1
|
|
100 IF F > N THEN GOTO 120
|
|
110 GOTO 80
|
|
120 IF C = 2 THEN PRINT "It is a semiprime."
|
|
130 IF C <> 2 THEN PRINT "It is not a semiprime."
|
|
140 END
|
|
150 LET C = C + 1
|
|
160 LET N = N / F
|
|
170 GOTO 80
|