Заданы величины x,y действительного типа.Написать программу для обмена значений величин.Использовать вспомогательные
величины нельзя.Протестировать программу для x=-3,y=8.
Где найти решение?

Question

величины нельзя.Протестировать программу для x=-3,y=8.
Где найти решение?

malice_3 · Accepted Answer

var x,y:integer;
begin
x:=-3; y:=8;
X:=x+y; y:=x-y; x:=x-y;
writeln (x,' ',y);
end.

konstantin_brudar · Answer

a:=a+b
b:=a-b
a:=a-b

upyr_11 · Answer

можно было проще... .
Одну вспомогательную взять, ей присвоить х, потом х присвоить у, а у присвоить вспомогательную.