Bienvenue sur Laurentvidal.fr, la meilleure plateforme de questions-réponses pour trouver des réponses précises et rapides à toutes vos questions. Obtenez des réponses détaillées et précises à vos questions grâce à une communauté d'experts dévoués sur notre plateforme de questions-réponses. Expérimentez la commodité d'obtenir des réponses précises à vos questions grâce à une communauté dévouée de professionnels.

(Informatique) Réponses svp

Informatique Réponses Svp class=

Sagot :

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.