Question

Помогите пожалуйста: напишите программу, которая производит обмен значений переменных x и y, если x больше у. Пример входных данных Пример выходных данных x>>5 x=5 y>>6 y=6

Answer 1

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.