Напишите линейную программу, в результате выполнения которой целочисленные переменные x и y обмениваются значениями. При этом нельзя использовать дополнительные переменные.
Answers & Comments
leon123
Var x,y:Integer; Begin Read(x,y); x:=x+y; y:=x-y; x:=x-y; Writeln(x, ' ',y); end.
Answers & Comments
x,y:Integer;
Begin
Read(x,y);
x:=x+y;
y:=x-y;
x:=x-y;
Writeln(x, ' ',y);
end.