Pascal

poutchii -  
diablond Messages postés 183 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

que faire pour arriver a ecrire un programme pouvant afficher le minimum et le maximum de 3 entiers
merci pour votre aide

A voir également:

1 réponse

diablond Messages postés 183 Date d'inscription   Statut Membre Dernière intervention   48
 
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
0