main :: IO ()
main = do
    n <- readLn
    putStrLn $ [xs !! n]
    where
        xs = "01234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545"