1. Accueil
  2. EXERCICES
  3. Langage Pascal_Exercices
  4. Nombre Premier | Langage Pascal

Nombre Premier | Langage Pascal

Ecrire un Programme Pascal qui Déterminer si un nombre est  un nombre Premier ou pas.

Principe : Un nombre premier est un nombre dont ses seuls diviseurs sont 1 et lui-même.

Exemple : 7 est un nombre premier car il n’a que deux diviseurs distincts : 1 et lui-même 7.

CORRECTION

Program NombrePremier;
Var
  nbre,cpt,i: Integer;
Begin
  //www.pandacodeur.com
  Repeat
    Writeln('Entrez un nombre qui sera testé: ');
    Read(nbre);
  Until (nbre>=0);
  cpt := 0;
  For i:=1 To nbre Do
    Begin
      If (nbre Mod i =0) Then
        cpt := cpt+1
    End;
  If (cpt=2) Then
    Writeln('Ce nombre est premier')
  Else
    Writeln('Ce nombre n'' est pas premier');
  Writeln('Plus d''exercices corrigés sur le site: Pandacodeur.com');
  //www.pandacodeur.com
End.

 

  • 1 vote. Moyenne 5 sur 5.

Ajouter un commentaire

Anti-spam