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):[])