import Control.Applicative

main = do
     [s, f] <- map (read::String->Int) . words <$> getLine
     print $ s `div` f + 1