DECOMP

Program decomposes the given compound number to the product of prime numbers.

Source code (177 B)


CLRT
PRINT"NUMBER
INPUT C
N=INT ABS C
T=2
LABEL 3
X=√N
LABEL 1
IF =FPART (N/T GOTO 2
T=T+2-INT 2T-1
IF T<=X GOTO 1
T=N
LABEL 2
CLRT
PRINT"DIVISOR
PRINT T
N=N/T
WAIT
IF N≠1 GOTO 3
CLRT
PRINT"END