A voir également:
- Fonction premier pascal
- Turbo pascal - Télécharger - Édition & Programmation
- Fonction si et - Guide
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Fonction miroir - Guide
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.