немного коряво, дальше усовершенсвуйте сами.
Код:
> s:=11 : convert(s,binary);
1011
> A:="1011";
A := "1011"
> B:=[seq(parse(A[i]),i=1..4)];
B := [1, 0, 1, 1]
> B[1],B[2],B[3],B[4];
1, 0, 1, 1
А почему не просто:
Код:
convert(11,base,2);
[1, 1, 0, 1]
Только надо учитывать, что
convert(n,base,b) возвращает цифры, начиная с младшего разряда. Но чаще всего именно так удобнее.