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 3672 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.

2 réponses

yg_be Messages postés 23323 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 12 novembre 2024 Ambassadeur 1 552
12 févr. 2018 à 17:00
bonjour, as-tu une question?
0