//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write(abs(ReadInteger('n=')).ToString.Select(x->x.ToDigit).Where(t->t.IsEven).Count);
end.
Во 2 строке добавляется только 1 число, поэтому дальше будет выход за границы листа.
Чтобы исправить: добавлять значения в цикле и в 3 строке range(len(A)) => range(len(A)-1)
10100110100111001 <span> в двоичной
</span>246471 <span>восьмеричной
</span>14D39 <span>шестнадцатеричной</span>
Ну перебираешь цикл пока не получится В = 1...
Ответ: C = 55