Даны два числа х и у.если х и у отрицательны.то каждое знач заменить его модулем ; если отриц только 1 то оба знач увеличить на 0,5 ; если оба знач неотрицательны то оба знач уменьшить в 10 раз.написать на qbasic
CLS INPUT "x = ", x INPUT "y = ", y IF x < 0 AND y < 0 THEN x = -x y = -y ELSE IF x < 0 XOR y < 0 THEN x = x + .5 y = y + .5 ELSE x = x - 10 y = y - 10 END IF END IF PRINT "x = "; x PRINT "y = "; y
INPUT "x = ", x
INPUT "y = ", y
IF x < 0 AND y < 0 THEN
x = -x
y = -y
ELSE
IF x < 0 XOR y < 0 THEN
x = x + .5
y = y + .5
ELSE
x = x - 10
y = y - 10
END IF
END IF
PRINT "x = "; x
PRINT "y = "; y