Перевод числа из шестнадцатеричной системы счисления в десятичную

Категория: Basic

2011-11-01 14:26:15

code: #basic

INPUT n$
FOR i = LEN(n$) TO 1 STEP -1
r = ASC(MID$(n$, i, 1))
IF r > 57 THEN r = r - 7
r = r - 48
s = s + r * 16 ^ k
k = k + 1
NEXT
PRINT s

автор: кот Бегемот

Поделиться:

Sample Code