Wikiversité

« Langage Pascal/Exercices/Pascal max a b » : différence entre les versions

Navigation interactive dans l’historique
← Modification précédenteModification suivante →
Contenu supprimé Contenu ajouté
VisuelWikicode
Aucun résumé des modifications
correction solution
Ligne 16 :
 
<source lang="pascal">
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', a); else▼
Begin
writeln('Le maximum est b', b);▼
 
End.
▲ writeln('Le maximum est a');
 
end
else
Begin
 
▲ writeln('Le maximum est b');
 
end
 
end.
</source>
}}
Récupérée de « https://fr.wikiversity.org/wiki/Langage_Pascal/Exercices/Pascal_max_a_b »