Нужно написать программу.


заданы величины x,y действительного типа. написать программу обмена значений величин.использовать вспомогательные величины нельзя.

1

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

2013-11-14T22:38:02+04:00
Var X,y:real; Begin Readln(x); Readln(y); X:=x+y; Y:=x-y; X:=x-y; Write('x='); writeln(x); Write('y=');writeln(y);

Var
X,y:real;
Begin
Readln(x);
Readln(y);
X:=x+y;
Y:=x-y;
X:=x-y;
Write('x='); writeln(x);
Write('y=');writeln(y);
спасибо большое