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

Discussions similaires

Formate
2015 -
MPMP10 -

1 réponse
arriere plan
minangi -
Raymond PENTIER -

1 réponse
Message "cette fonction n'est pas disponible actuellement"
daladala -
Lucaslebg -

15 réponses
Qui sont les 6 amis affichés sur le profil Facebook ?
woknwoler -
grr -

319 réponses
Quelqu'un regarde ma webcam ?
Anonyme123 -
jag72 -

2 réponses