Program S2;
Var
N : integer;
//**************************************
Procedure Saisie (Var N : integer);
Begin
Repeat
write('Donner un entier pair >= 4 : ');
readln(N);
Until (N>=4) And (N Mod 2 = 0);
End;
//**************************************
Function Premier(N:integer) : Boolean;
Var
i : integer;
Pr : boolean;
Begin
i := 2;
Pr := True;
While (i<= N Div 2 ) And (Pr = True) Do
Begin
If (N Mod i = 0) Then
Pr := False
Else
i := i+1;
End;
Premier := Pr;
End;
//**************************************
Procedure Affichage(N:integer);
Var
i : integer;
Begin
For i:= 2 To (N-2) Do
Begin
If (Premier(i) And Premier(N-i)) Then
writeln(i,' ',N-i);
End;
End;
//**************************************
Begin
Saisie(N);
Affichage(N);
End.
Inscription à :
Publier les commentaires (Atom)
