Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 627
Réponses : 0
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Ce nombre est-il premier ?

Wirekey le 09/12/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


PS: Il doit pouvoir être amélioré mais bon ...
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.