13 lines
269 B
Text
13 lines
269 B
Text
Algorithme : Lit un entier et indique s'il est premier.
|
|
|
|
Début
|
|
Variable n, i : Entier
|
|
Lire(n)
|
|
Pour i allant de 2 à n/2:
|
|
Si n Modulo i = 0:
|
|
Ecrire("Non premier")
|
|
Retourner
|
|
FinSi
|
|
FinPour
|
|
Ecrire("Premier")
|
|
Fin
|