Question

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

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

заданы величины 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);