Написать программу для упорядочения чисел a,b,c по возрастанию.Таким образом ,что а соответствует наименьшему, b среднему, c наибольшему.

1

Ответы и объяснения

2014-04-06T11:58:33+04:00
Var a, b, c, t: integer;
begin
     readln(a, b, c);
     if (a > b) then
     begin
          t := a;
          a := b;
          b := t;
     end;
     if (b > c) then
     begin
          t := b;
          b := c;
          c := t;
     end;
     if (a > b) then
     begin
          t := a;
          a := b;
          b := t;
     end;
     writeln(a, ' ', b, ' ', c);
end.

Pascal
спасибо)
там есть кнопка
а я вот так захотела)