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