Imports System

Module Program
    Sub Main(args As String())
        Dim Str As String = Console.ReadLine()

        Dim H As Long = Long.Parse(Str.Substring(0, Str.IndexOf(" ")))
        Dim A As Long = Long.Parse(Str.Substring(Str.IndexOf(" ") + 1, Str.Length - Str.IndexOf(" ") - 1))

        Dim counta As Double = Math.Ceiling(H / A)

        Console.WriteLine(counta)

    End Sub
End Module
