10 lines
278 B
Text
10 lines
278 B
Text
10 REM SEMIPRIME
|
|
20 INPUT "ENTER AN INTEGER"N
|
|
30 LET N=ABS(N)
|
|
40 LET C=0
|
|
50 IF N<2 GOTO 90
|
|
60 FOR F=2 TO N
|
|
70 IF (N/F)*F=N LET C=C+1,N=N/F;GOTO 70
|
|
80 NEXT F
|
|
90 IF C=2 PRINT "IT IS A SEMIPRIME.";STOP
|
|
100 PRINT "IT IS NOT A SEMIPRIME.";STOP
|