Предмет: Информатика,
автор: krakazabrala
Помогите пожалуйста: напишите программу, которая производит обмен значений переменных 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.
Похожие вопросы
Предмет: Русский язык,
автор: dinarchik13
Предмет: Русский язык,
автор: цечон
Предмет: Русский язык,
автор: валентина196
Предмет: Алгебра,
автор: Аноним