module ABC154A
  sub Main(ByVal args() as String)
    Dim H as Long
    Dim A as Long
    Dim arr(2) as String
    arr=Split(Console.ReadLine())
    H = arr(0)
    A = arr(1)
    
    Dim res as Long
    res = H \ A
    If H mod A <> 0 Then
        res = res + 1
    End If

    Console.WriteLine("{0}", res)
  end sub
end module
