Programme qui détermine si un nombre est premier

Fermé
olfa_prof_info
Messages postés
1
Date d'inscription
lundi 12 février 2018
Statut
Membre
Dernière intervention
12 février 2018
- Modifié le 13 févr. 2018 à 09:30
Reivax962
Messages postés
3671
Date d'inscription
jeudi 16 juin 2005
Statut
Membre
Dernière intervention
11 février 2021
- 12 févr. 2018 à 17:25
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

yg_be
Messages postés
19323
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
26 mai 2022
1 110
12 févr. 2018 à 17:00
bonjour, as-tu une question?
0