//PascalABC.NET
begin
ReadSeqIntegerWhile(x -> x <> 0).Where(x -> (x mod 10 = 6) and (x mod 6 = 0)).Sum.Print;
end.
А10=1997,25=1*10^3+9*10^2+9*10^1+7*10^0+2*10^(-1)+5*10^(-2)
A16=918=9*16^2+1*16^1+8*16^0
A8=145=1*8^2+4*8^1+5*8^0
A2=101010=1*2^5+0*2^4+1*2^3+0*2^2+1*2^1+0*2^0
Если нужен алгоритм, то так
-4 ! +5 ! +4 ! -10!
б в д е, поскольку отдельно взятая цифра в числе не может превышать основание системы счисления. Например, вариант А ошибочен, так, как основание равно 6, а это значит что наибольшей цифрой в числе должно быть 5