No.246 質問と回答 on VB | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'https://yukicoder.me/problems/no/246
Module Program
    Sub Main
        Dim numMin=1
        Dim numMax=1000000001
        Do
            Dim chkNum=CInt((numMin+numMax)/2)
            Console.WriteLine("? {0}",chkNum)
            If Console.ReadLine()="1" Then numMin=chkNum Else numMax=chkNum
            If numMin=numMax-1 Then
                Console.WriteLine("! {0}",numMin)
                Exit Do
            End If
        Loop
    End Sub
End Module
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX