a[x_, n_] := IntegerPart[x*10^(-n + 1)] - IntegerPart[x*10^(-n)]*10;
k[x_] := Length[IntegerDigits[x, 10]];
f[x_] := Sum[a[x, i]*10^(k[x] - i), {i, 1, k[x]}];