Question

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

Answer 1

var
x,y:real;
begin
readln(x);
readln(y);
x:=x+y;
y:=x-y;
x:=x-y;
writeln(x,' ',y)
end.