module Main where

import Control.Applicative
import Control.Monad

main :: IO ()
main = do
    [s, f] <- fmap read . words <$> getLine
    let ans = floor (s / f) + 1
    print ans