• Паскаль программы.Расположите числа a,b,c integer в порядке возрастания.помогите мне, пожалуйста!!!

Ответы 2

  • var

      a, b, c : integer;

     

    procedure swap (var a, b : integer);

    var k : integer;

    begin

      k := a;

      a := b;

      b := k;

    end;

     

    begin

      read (a, b, c);

      if a > b then swap (a, b);

      if a > c then swap (a, c);

      if b > c then swap (b, c);

      writeln (a, ' ', b, ' ', c);

    end. 

     

    • Автор:

      alliekjrk
    • 6 лет назад
    • 0
  • Var

    a. b. c. integer

    вот так то

    • Автор:

      cujocjp8
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years