Bienvenue sur FRstudy.me, votre plateforme de référence pour toutes vos questions! Notre plateforme interactive de questions-réponses fournit des réponses précises et complètes pour vous aider à résoudre vos problèmes rapidement.
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 sommes ravis de vous avoir parmi nous. Continuez à poser des questions, à répondre et à partager vos idées. Ensemble, nous créons une ressource de savoir précieuse. Nous espérons que vous avez trouvé ce que vous cherchiez sur FRstudy.me. Revenez pour plus de solutions!