Nombre premier sur pascal

wassim -  
 mido -
Bonjour,je un eleve de bac info je veut un algorithme de nombre premier sur pascal
Configuration: Windows XP
Firefox 3.0.6

1 réponse

  1. KX Messages postés 19031 Statut Modérateur 3 020
     
    Ce genre de discussion existe déjà, regarde ici
    2
    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