begin repeat var n,i,s:comp=0;read(s);for i:=18downto 1do n:=i*(n+s div(10pow i)mod 10);writeln(n)until 1=0end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page