Programme qui détermine si un nombre est premier [Fermé]

Signaler
Messages postés
1
Date d'inscription
lundi 12 février 2018
Statut
Membre
Dernière intervention
12 février 2018
-
Messages postés
3671
Date d'inscription
jeudi 16 juin 2005
Statut
Membre
Dernière intervention
11 février 2021
-
Bonjour, la structure adéquate est (répéter ..... jusqu'à)


program premier;
uses wincrt;
var n,r,i:integer;
begin
write('Donnez un entier naturel : ');
read(n);
i:=1 ;
repeat
i:=i+1;



until(n mod i=0) or (i=n-1);
if n mod i=0 then
writeln( ' n est pas premier')
else
writeln(' premier');
end.
A voir également:

2 réponses

Messages postés
14986
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
7 avril 2021
823
bonjour, as-tu une question?
Messages postés
3671
Date d'inscription
jeudi 16 juin 2005
Statut
Membre
Dernière intervention
11 février 2021
987
Bonjour,

Il n'y a pas besoin d'aller jusqu'à n-1 :)

Xavier