|
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
|