import Control.Applicative

main :: IO ()
main = do
    [a, b] <- map read . words <$> getLine
    putStrLn $ show (solve a b)
   
solve :: Int -> Int -> Int 
solve a b = if a `mod` b > 0 then a `div` b + 1 else a `div` b