Nombre premier pascal

nadal1991 Messages postés 268 Date d'inscription   Statut Membre Dernière intervention   -  
 mido -
Bonjour,
a tous j'ai un petit probleme dans un algorithme que je dois faire , alors je dois trouver un algorithme qui :quand on entre une valeur 'n' il nous donne les n premier "nombre premier " , ,, je connais deja tres bien l'algo pour determiner si un nombre est premier ou pas mais je sais pas comment faire pour celui ci


merci de m'aider
A voir également:

2 réponses

nadal1991 Messages postés 268 Date d'inscription   Statut Membre Dernière intervention   11
 
une reponse silvouplait
2
nadal1991 Messages postés 268 Date d'inscription   Statut Membre Dernière intervention   11
 
une aide silvouplait
1
mido
 
program premier;
uses wincrt;
var
n,r,i:integer;
begin
write('Donnez un entier naturel : ');
read(n);
r:=0;
for i:=1 to n do
if n mod i = 0
then r:=r+1;
if r=2
then write('le nombre est premier')
else
write('le nombre n'est pas premier');
end.
0