A voir également:
- Fonction premier pascal
- Fonction si et - Guide
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Fonction moyenne excel - Guide
- Premier pro - Télécharger - Montage & Édition
1 réponse
KX
Messages postés
16753
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
25 novembre 2024
3 019
3 juin 2009 à 22:20
3 juin 2009 à 22:20
Ce genre de discussion existe déjà, regarde ici
26 févr. 2012 à 23:35
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.