zadach212.BAS

{* Задача212 *}

REM basic

' Введите А и В. Извлеките корень квадратный из Max(A, B) и
' корень третьей степени из Min(A, B).
' Оператор IF или логические коэффициенты не использовать.


CLS
INPUT "a: ", a
INPUT "b: ", b
maxAB = SQR((a + b + ABS(a - b)) / 2)
minAB = ((a + b - ABS(a - b)) / 2) ^ (1 / 3)
PRINT "maxAB = "; maxAB
PRINT "minAB = "; minAB
End