24 lines
275 B
Plaintext
24 lines
275 B
Plaintext
INT tot
|
|
INT n
|
|
INT j
|
|
INT te
|
|
IN INT tot numero massimo
|
|
SET n 1
|
|
:scn
|
|
SET j 2
|
|
OUT $n$\n
|
|
:sieve
|
|
MOD n j te
|
|
#OUT \n- $te$ -\n
|
|
JME scr j n
|
|
INC j 1
|
|
JM sieve te 0
|
|
INC n
|
|
JLE scn n tot
|
|
END
|
|
:scr
|
|
#OUT $j$ sas\n
|
|
SET j 2
|
|
INC n
|
|
JMP sieve
|