1 2 3 4 5 6 7 | INPUT "vvedite dvoichnoe chislo ", a DO WHILE a > 0 b = b + (a MOD 10 ) * 2 ^ t a = a \ 10 t = t + 1 LOOP PRINT b |
Следующий вариант
1 2 3 4 5 6 | INPUT "vvedite dvoichnoe chislo ", a$ FOR i = LEN(a$) TO 1 STEP - 1 b = b + VAL (MID$(a$, i, 1 )) * 2 ^ r r = r + 1 NEXT PRINT b |
Тестирование выполнено в программе QB64 ( Скачать )