Imports System
Module ABC153A
	Sub Main()
		Dim h,a As Integer
		Dim inputs() As String = Console.ReadLine().Split()
		h = Integer.Parse(inputs(0))
		a = Integer.Parse(inputs(1))
		Dim ans As Integer = h \ a
		If (h Mod a) <> 0
			ans += 1
		End If
		Console.WriteLine(ans)
	End Sub
End Module
