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

Ответы 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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years