Autorisation : Membre
Nb de messages : 228
Inscrit le : Mer 17 Jui 2009, 0:54
Posté le : Mer 09 Déc 2009, 19:45
Voila dysto :
Code
Prompt A
If A=2 ou A=3 ou A=5
Then
Disp "NB PREMIER
Stop
End
For(N,2,3)
If PartDéc(A/N)=0
Then
Disp "NON PREMIER
Stop
End
End
5->N
While N =< racine(A)
If PartDéc(A/N)=0
Then
Disp "NON PREMIER
Stop
End
N+2->N
End
Disp "PREMIER
