import Data.List f::Int->String f n |n>100 ="" |otherwise=(show n)++f (n+1) main = do e<-getLine let n=read e::Int putStrLn $ (((f (0::Int))!!n):[])