import Data.List
main = do
  [a,b] <- map read . words <$> getLine :: IO [Int]
  putStrLn $ show (ans a b)

ans :: Int -> Int -> Int
ans a b = if a `mod` b == 0
          then a `div` b
          else (a `div` b) + 1


