Напишите линейную программу, в результате выполнения которой целочисленные переменные x и y обмениваются значениями. При этом нельзя использовать дополнительные переменные.

Question

Наста

9 января, 18:59

+1

Ответы (1)

Знаете ответ на вопрос?

Ксанфиппа · Answer 1

Var

x, y:Integer;

Begin

Read (x, y) ;

x:=x+y;

y:=x-y;

x:=x-y;

Writeln (x, ' ', y) ;

end.