1 2 3 4 5 6 7 8 9 10 | DIM tmpVal AS INTEGER tmpVal = 123 hex2bin$ = ""DO hex2bin$ = STR$(tmpVal MOD 2) + hex2bin$ tmpVal = tmpVal \ 2LOOP WHILE tmpVal > 0PRINT hex2bin$ |
Следующий вариант
1 2 3 4 5 6 | INPUT nDO a$ = LTRIM$(STR$(n MOD 2)) + a$ n = n \ 2LOOP UNTIL n = 0PRINT a$ |