Заполнить массив нулями, кроме первого и последнего элементов, которые должны быть равны единице.

// pascalabc.net 3.2, сборка 1425 от 22.04.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrfill(readinteger('n='),0);   a[0]: =1; a[a.length-1]: =1; a.println; end. пример n= 10 1 0 0 0 0 0 0 0 0 1

2^i = n

2^i = 64

i = 6 бит.

ответ. 6 бит

паскаль же?

var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin

d: =d+k;

val(s,k,err);

end;

write (d);

end.