Помогите пожалуйста: напишите программу, которая производит обмен значений переменных x и y, если x больше у.
Пример входных данных Пример выходных данных
x>>5 x=5
y>>6 y=6
Ответы
Ответ дал:
211
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.
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.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
7 лет назад
7 лет назад