Помогите пожалуйста: напишите программу, которая производит обмен значений переменных x и y, если x больше у.
Пример входных данных Пример выходных данных
x>>5 x=5
y>>6 y=6
Ответ
Проверено экспертом
Автор - Igorrock
Program zadanie; Var x,y:real; Begin Writeln('Введите значения x и y'); Readln(x,y); If x>y Then begin x:=x+y; y:=x-y; x:=x-y; Writeln('x=',x); Writeln('y=',y); end; End.