Question

PASCAL Interschimb.Se dau doua marimi numerice x si y. De elaborat un program care va schimba valorile intre ele fara a folosi alte variabile. ( daca x=12,y=23, atunci rezultatul va fi x=23 si y=12).

Answer 1

program Interschimbare;

var x,y:integer;

begin

 write('x='); read(x);

 write('y='); read(y);

 x:=x+y;

 y:=x-y;

 x:=x-y;

 writeln(' Dupa interschimbare:');

 writeln('x= ',x);

 writeln('y= ',y);

end.