Laurentvidal.fr est là pour vous fournir des réponses précises à toutes vos questions avec l'aide de notre communauté experte. Connectez-vous avec des professionnels sur notre plateforme pour recevoir des réponses précises à vos questions de manière rapide et efficace. Rejoignez notre plateforme pour vous connecter avec des experts prêts à fournir des réponses détaillées à vos questions dans divers domaines.

(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.