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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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