ROZKLAD

Program provádí rozklad složeného čísla na součin prvočísel.

Zdrojový kód (180 B)


CLRT
PRINT"CISLO
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"DELITEL
PRINT T
N=N/T
WAIT
IF N≠1 GOTO 3
CLRT
PRINT"KONEC