Module Module1

    Sub Main()

        Dim arr As String() = Split(Console.ReadLine())
        Dim A As Integer = arr(0)
        Dim B As Integer = arr(1)
        Dim x As Integer = 0

        x = B \ A + IIf((B Mod A > 0), 1, 0)

        Console.WriteLine(x)

        '.ReadLine()

    End Sub

End Module
