Réponse :
Explications :
Program Pair_Impair
Var
x: integer ;
Begin
//Affichage du message
Writeln( ’ tapez un nombre entier: ’) ;
//lire au clavier un nombre
Readln(x) ;
Tester si le reste de la division de x par 2 = 0 pour vérifier si nbre est pair
If x mod 2 = 0
// le test est vrai on affiche le message pair
Writeln( ’ votre nombre est pair ’)
/:sinon le nombre est impaire
else
Writeln( ’ votre nombre est impair ’) ;
Readln ;
End.
