Langage Pascal/Exercices/Pascal max a b

Cet exercice est très classique. Il faut savoir le refaire sans indication ni doute.

Faites un programme qui donne le maximum de deux entier a et b.

Solution

 var a,b: integer;
 Begin
   write('Entrez un premier nombre : ');
   readln(a);
   write('Entrez un deuxième nombre : ');
   readln(b);

   if a > b then
      writeln('Le maximum est ', a)
   else
      writeln('Le maximum est ', b)
 End.

Cet article est issu de Wikiversity. Le texte est sous licence Creative Commons - Attribution - Partage dans les Mêmes. Des conditions supplémentaires peuvent s'appliquer aux fichiers multimédias.