Список проголосовавших за комментарий "<p>Программа MILLIARD угадывает 1 из тысяч на qbasic qb64</p><p> </p><p>h1=0: h2=10^3:t=1:f=0: Randomize Timer 'daMilliard.bas</p><p>human = Int(Rnd*h2) 'human</p><p>comp = Int(Rnd*h2) 'comp</p><p> </p><p>While f < 1</p><p>Print t; «human =»; human; " comp ="; comp;</p><p> </p><p>If comp < human Then</p><p>Print " MORE": a=comp: comp=Int((comp+h2)/2): h1=a</p><p> </p><p> Else If human < comp Then</p><p> Print " less": a=comp: comp=Int((h1+comp)/2): h2=a</p><p> </p><p> Else If human=comp Then</p><p> Print " win by "; t; " steps": f=1</p><p>End If: End If: End If: t = t + 1</p><p>Wend: End</p><p> </p><p> </p><p>Диапазон от 1 до 100 :</p><p> </p><p>1 40 11 MORE</p><p>2 40 55 less</p><p>3 40 33 MORE</p><p>4 40 44 less</p><p>5 40 38 MORE</p><p>6 40 41 less</p><p>7 40 39 MORE</p><p>8 40 40 win by 8 steps</p>"