Задать вопрос Регистрация
Помочь другим

  • напишите программу которая производит обмен значений переменных х и у если х больше у

Ответы 1

  • Если не использовать дополнительных переменных(для чисел),то:

    Var x,y:integer;

    begin

    read(x,y);

    x:=x+y;

    y:=x-y;

    x:=x-y;

     

    writeln(x, ' ',y);

    end.

     

     

     

     Можно и через дополнительную переменную:

    Var x,y,s:integer;

    begin

    read(x,y);

    s:=x;

    x:=y;

    y:=s;

    writeln(x, ' ',y);

    end.

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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