import Control.Monad
import Control.Applicative
import Data.List
import Data.Array
strToInt s = (read :: String -> Int) s

main = do

   [x , y , z] <- (map strToInt . words) <$> getLine
   print (solve x y z)



solve :: Int -> Int -> Int -> Int

solve x y z = if (x-y-z) >= z
              then 1 + solve (x-y-z) y z
              else 0
