122 Chapitre 6 – Programmation
FORI=PTOINT(N/P) STEP 1;
0->L1(I*P):
END:
DISP 3;""L1:
P+1->P:
WHILE P*P
6 N AND L1(P) == 0 REPEAT
P+1->P:
END:
END:
{2}->L2:
@ on sait que 2 est premier
FOR I=3 TO N STEP 1;
IF L1(I) 6= 0 THEN
CONCAT(L2,{I}) ->L2:
END:
END:
DISP 3 ;"PREM" L2:
FREEZE:
Comentários a estes Manuais