23 lines
365 B
Text
23 lines
365 B
Text
REM Semiprime
|
|
PRINT "Enter an integer ";
|
|
INPUT N
|
|
N = ABS(N)
|
|
|
|
Count = 0
|
|
IF N >= 2 THEN
|
|
FOR Factor = 2 TO N
|
|
NModFactor = N MOD Factor
|
|
WHILE NModFactor = 0
|
|
Count = Count + 1
|
|
N = N / Factor
|
|
NModFactor = N MOD Factor
|
|
WEND
|
|
NEXT Factor
|
|
ENDIF
|
|
|
|
IF Count = 2 THEN
|
|
PRINT "It is a semiprime."
|
|
ELSE
|
|
PRINT "It is not a semiprime."
|
|
ENDIF
|
|
END
|