Question

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

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

Answer 1

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);

Answer 2

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);