8 lines
248 B
Text
8 lines
248 B
Text
10 INPUT "Enter a number: ", N
|
|
20 N=ABS(N)
|
|
30 C = 0
|
|
40 IF N < 3 THEN GOTO 80
|
|
50 F = 2
|
|
60 IF N MOD F = 0 THEN C = C + 1 : N = N / F ELSE F = F + 1
|
|
70 IF N > 1 THEN GOTO 60
|
|
80 IF C=2 THEN PRINT "It's a semiprime." ELSE PRINT "It is not a semiprime."
|