import Control.Monad
import Data.Maybe
import qualified Data.ByteString.Char8 as BS

readInt = fst . fromJust . BS.readInt
readIntList = map readInt . BS.words

getInt = readInt <$> BS.getLine
getIntList = readIntList <$> BS.getLine

main = do
  [h, a] <- getIntList
  let n = 0
  print $ solve h a n

solve :: Int -> Int -> Int -> Int
solve h a n = if a*n >= h then n else solve h a (n+1)