Program S5 ;
Var
n : integer ;
//***********************************
Procedure saisie (Var n :integer) ;
Begin
Repeat
Write('Donner un entier positif: ') ;
Readln(n) ;
Until n>0 ;
End ;
//***********************************
Function premier(n :integer) : boolean ;
Var
i : integer ;
Begin
Premier := true ;
For i :=2 To n Div 2 Do
If n Mod i =0 Then
premier := false ;
End ;
//***********************************
Begin
saisie(n) ;
If premier(n) Then
write (n,' est premier')
Else
write(n,' est non premier') ;
End .
Inscription à :
Publier les commentaires (Atom)
