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
- Pascal le grand frere streaming ✓ - Forum Cinéma / Télé
- Le protocole assure que la communication entre l'ordinateur de pascal et le serveur de visiodoct est car les informations seront avant d'être envoyées. - Forum Réseau
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
