122
Chapitre 6 – Programmation
FOR I = P TO INT(N/P) STEP 1;
0->L1(I*P):
END:
DISP 3;""L1:
P+1->P:
WHILE P*P
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) = 0 THEN
CONCAT(L2,{I}) ->L2:
END:
END:
DISP 3 ;"PREM" L2:
FREEZE: