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

Question

Марея

24 марта, 15:26

+5

Ответы (1)

Знаете ответ?

Каллиник · Answer 1

Var

x, y:Integer;

Begin

Read (x, y) ;

x:=x+y;

y:=x-y;

x:=x-y;

Writeln (x, ' ', y) ;

end.