Programme qui détermine si un nombre est premier

olfa_prof_info Messages postés 1 Statut Membre -  
Reivax962 Messages postés 3742 Statut Membre -
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 24281 Statut Contributeur Ambassadeur 1 584
 
bonjour, as-tu une question?
0