Перевод числа из десятичной систем счисления в двоичную — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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&

Похожие записи/страницы:

Leave a Comment