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

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

Question

Володя

5 января, 22:47

+1

Ответы (1)

Знаете ответ на вопрос?

Сергеич · 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) ;

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