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

Категория: Basic

2011-10-31 13:52:34

code: #basic

INPUT n
DO
s$ = LTRIM$(STR$(n MOD 2)) + s$
n = n \ 2
LOOP UNTIL n = 0
PRINT s$

а если нужно числом, то

code: #basic

INPUT n
DO
s$ = LTRIM$(STR$(n MOD 2)) + s$
n = n \ 2
LOOP UNTIL n = 0
r&=VAL( s$)
PRINT r&

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

Поделиться:

Sample Code