10 REM ************ ΠΡΟΓΡΑΜΜΑ Π106 ************

20 REM * *

30 REM * Ανάλυση σε γινόμενο παραγόντων *

40 REM * *

50 REM * πρώτων αριθμών *

60 REM * *

70 REM *******************************************

80 CLS

90 PRINT :INPUT "Δώσε τον αριθμό για παραγοντοποίηση";N

100 PRINT

110 IF N=2 THEN GOTO 230

120 F=0

130 I=2

140 GOSUB 250

150 IF N=1 THEN GOTO 330

160 FOR I=3 TO SQR(N)+1 STEP 2

170 GOSUB 250

180 IF N=1 THEN GOTO 330

190 NEXT I

200 IF F=0 THEN GOTO 230

210 PRINT N;

220 GOTO 330

230 CLS:LOCATE 10,20:PRINT"Ο αριθμός ";N;" είναι πρώτος"

240 GOTO 330

250 IF N/I <>INT(N/I) THEN GOTO 320

260 IF F>0 THEN GOTO 290

270 CLS:LOCATE 10,20:PRINT"Ο αριθμός " N; "έχει τους παράγοντες:":PRINT

280 F=1

290 PRINT I;

300 N=N/I

310 IF N<>1 THEN GOTO 250

320 RETURN

330 END