19 lines
185 B
Plaintext
19 lines
185 B
Plaintext
INT tot
|
|
INT n
|
|
INT j
|
|
INT te
|
|
IN INT tot numero massimo
|
|
SET n 1
|
|
:scn
|
|
SET j 1
|
|
OUT $n$\n
|
|
:sieve
|
|
MOD n j te
|
|
OUT j: $j$ \n
|
|
OUT te: $te$ \n
|
|
INC j
|
|
JME scn j n
|
|
JM sieve te 0
|
|
INC n
|
|
JLE scn n tot
|