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

AvariItigail

22 апреля 2016

Исходный код на языке Pascal

var
  a, b: real;

begin
  read(a, b);
  a := a + b;
  b := b + a;
  a := b - a;
  b := (b - 2 * a);
  writeln('a=', a, ' b=', b);
end.