for i=0to 1e3n=i d=0 for a=1to 7d=mod(n,a)*10^a/10+d n=int(n/a)next ?d next