(Informatique) Réponses svp

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.