поменять местами значения х и у не используя дополнительную переменную.(Pascal)

1

Ответы и объяснения

2013-12-05T19:07:41+04:00
Var x,y:integer;
 Begin
  x:=20; 
 y:=40; 
 x:=x+y;  
y:=x-y;  
x:=x-y;  
Write (x,'  ',y); End.