import Data.Maybe
import Control.Monad
import qualified Data.ByteString.Char8 as C

readInteger' = fst.fromJust.C.readInteger
readLnInteger = map readInteger'.C.words<$>C.getLine
readCsInteger n = concat<$>replicateM n readLnInteger

x ? (a,b) = if x then a else b

main = do
 [x] <- readLnInteger
 print $ solve x

solve x = count 0 100 x

count year temp goal
 | temp >= goal = year
 | otherwise = count (year + 1) (interested temp) goal

interested n = (n*101)`div`100
