INPUT a$FOR i = 1 TO LEN(a$) b$ = MID$(a$, i, 1) IF i = LEN(a$) THEN ELSE h$ = h$ + b$ + "-" END IFNEXT iPRINT h$ + b$
Программа и пример её работы - в прилагаемом файле.
2^5 = 32
Вагон №32 закодирован 11111 (5 бит)
Вагон №7 111 (3 бита)
А фотку учебника? Ну или автора