16 lines
273 B
Text
16 lines
273 B
Text
10 REM PRIME DECOMPOSITION
|
|
20 INPUT "ENTER A NUMBER"N
|
|
30 PRINT "--------------"
|
|
40 LET N=ABS(N)
|
|
50 IF N<2 STOP
|
|
60 LET I=2
|
|
70 IF I*I>N GOTO 150
|
|
80 LET M=N-(N/I)*I
|
|
90 IF M#0 GOTO 130
|
|
100 LET N=N/I
|
|
110 PRINT I
|
|
120 LET I=2
|
|
130 IF M#0 LET I=I+1
|
|
140 GOTO 70
|
|
150 PRINT N
|
|
160 STOP
|