zadach183.BAS

{* Задача183 *}

REM basic

' Ввести А, В, Х. Проверить следующие условия и сообщить о
' результате: Х>Max(A, B), Х


CLS
INPUT "Введите A, B, X ", A, B, X
Select Case X
  Case Is > ((A > B) ^ 2 * A - (B > A) * B - (A = B) * A)
      PRINT "X больше Max(A, B)"
  Case Is < ((A < B) ^ 2 * A - (B < A) * B - (A = B) * A)
      PRINT "X меньше Min(A, B)"
  Case Is = ((A = B) ^ 2 * A - (A  B) * (X + 1))
      PRINT "X = A = B"
  Case Else
      PRINT "X принадлежит [A, B]"
End Select
End