import Data.Ratio

main :: IO ()
main = do
  x <- readLn
  print $ solve x

solve :: Int -> Int
solve x = go 0 100
  where
    go n m
      | m >= x    = n
      | otherwise = go (n + 1) (m + floor (m % 100))