Pascal
Fermé
poutchii
-
9 avril 2011 à 18:29
diablond Messages postés 183 Date d'inscription samedi 18 septembre 2010 Statut Membre Dernière intervention 2 mai 2011 - 9 avril 2011 à 19:49
diablond Messages postés 183 Date d'inscription samedi 18 septembre 2010 Statut Membre Dernière intervention 2 mai 2011 - 9 avril 2011 à 19:49
A voir également:
- Pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev-pascal - Télécharger - Édition & Programmation
- Algorithme triangle de pascal - Forum Pascal
- Pascal veut modifier une photo mais c’est la visionneuse d’images qui l’ouvre. que doit-il choisir pour l’ouvrir avec son logiciel de traitement d’image ? - Forum Windows
1 réponse
diablond
Messages postés
183
Date d'inscription
samedi 18 septembre 2010
Statut
Membre
Dernière intervention
2 mai 2011
48
9 avril 2011 à 19:49
9 avril 2011 à 19:49
Var
Max, Min, a, c, d : integer
begin
read(a);
read(b);
read(c);
max := a;
if max < b then max := b;
if max < c then max := c;
min := a;
if min > b then min := b;
if min > c then min := c;
writeln('Max : ',max)
writeln('Min : ',min)
End
Max, Min, a, c, d : integer
begin
read(a);
read(b);
read(c);
max := a;
if max < b then max := b;
if max < c then max := c;
min := a;
if min > b then min := b;
if min > c then min := c;
writeln('Max : ',max)
writeln('Min : ',min)
End
