No.253 ロウソクの長さ on VB | Codetter（こーどったー）

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