REM Перевод числа в системы с основанием 2, 8 и 16
CLS
INPUT "Введите положительное число : ", n&
a$ = OCT$(n&): ' Перевод в восьмеричную систему
IF n& = 0 THEN
PRINT "Это число в любой системе равно 0"
STOP
END IF
PRINT "В двоичном представлении "; n&; "= ";
B$ = LEFT$(a$, 1)
SELECT CASE B$
CASE "0": PRINT "";
CASE "1": PRINT "1";
CASE "2": PRINT "10";
CASE "3": PRINT "11";
CASE "4": PRINT "100";
CASE "5": PRINT "101";
CASE "6": PRINT "111";
CASE "7": PRINT "111";
END SELECT
FOR K = 2 TO LEN(a$)
B$ = MID$(a$, K, 1)
SELECT CASE B$
CASE "0": PRINT "000";
CASE "1": PRINT "001";
CASE "2": PRINT "010";
CASE "3": PRINT "011";
CASE "4": PRINT "100";
CASE "5": PRINT "101";
CASE "6": PRINT "111";
CASE "7": PRINT "111";
END SELECT
NEXT K
PRINT
PRINT "В восьмеричном представлении "; n&; "= "; OCT$(n&)
PRINT "В шестнадцатеричном представлении "; n&; "= "; HEX$(n&)
END