Nombre premier sur pascal

wassim -  
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 Modérateur
    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

arriere plan
minangi

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

15 réponses
Formate
2015

1 réponse
Qui sont les 6 amis affichés sur le profil Facebook ?
woknwoler

319 réponses
commande en Pascal
pijahema

12 réponses