Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Написать программу обмена переменных x и y , без использования дополнительных велечин ,
( это надо делать в Pascal)

Ответ оставил Гость

Var
  a,b:integer;
begin
  a:=50; b:=-20; { начальное присванивание }
  Writeln(Исходные значения: a=,a,, b=,b);
  a:=a+b; b:=a-b; a:=a-b;
  Writeln(Обмен после "арифметического" способа: a=,a,, b=,b);
  a:=50; b:=-20; { начальное присванивание }
  a:=a xor b; b:=a xor b; a:=a xor b;
  Writeln(Обмен после "логического" способа: a=,a,, b=,b)
end.

Результат выполнения программы:
Исходные значения: a=50, b=-20
Обмен после "арифметического" способа: a=-20, b=50
Обмен после "логического" способа: a=-20, b=50