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.
Merci, votre note vient d'être comptabilisée.
Merci, mais vous avez déjà voté pour cette page, réessayez plus tard.