Laurentvidal.fr vous aide à trouver des réponses précises à toutes vos questions grâce à une communauté d'experts chevronnés. Découvrez des réponses fiables à vos questions grâce à une communauté d'experts prêts à partager leurs connaissances et expériences variées. Rejoignez notre plateforme pour vous connecter avec des experts prêts à fournir des réponses détaillées à vos questions dans divers domaines.
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.
Nous apprécions votre temps. Revenez quand vous voulez pour obtenir les informations les plus récentes et des réponses à vos questions. Merci d'utiliser notre plateforme. Nous nous efforçons de fournir des réponses précises et à jour à toutes vos questions. Revenez bientôt. Revenez sur Laurentvidal.fr pour obtenir plus de connaissances et de réponses de nos experts.