main = do
  li <- getLine
  let x = read li
  let ans = compute x
  print ans

compute :: Int -> Int
compute x = loop 0 100
  where
    loop c v
      | v >= x = c
      | True   = loop (succ c) (v + v `div` 100)
