Pascal

Bonjour,

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

1 réponse

  1. 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