Module Module1

    Sub Main()
        Dim a() As String = Console.ReadLine.Split(" ")
        Dim n, k As Integer
        n = 2 * CInt(a(0))
        k = CInt(a(1))
        Dim rez As Integer = Math.Ceiling(n / k)
        Console.WriteLine(rez)
    End Sub

End Module

Test data:
10 11
Answer:
2

I got wrong answer for test#8 but my output is 2. What is wrong?

Edited by author 12.05.2014 00:54

Try:
1 2