'Программа угадывания задуманного числа в интервале [0,100] DEFINT A-Z CLS LEFT = 0: RIGHT = 100: DO MIDDLE = (LEFT + RIGHT) \ 2 PRINT "Задуманное Вами число больше, чем"; MIDDLE; " (Y/N) - "; INPUT "", A$ IF RIGHT - LEFT <= 1 THEN IF A$ = "Y" OR A$ = "y" THEN PRINT "Вы задумали "; RIGHT: END ELSE PRINT "Вы задумали "; LEFT: END END IF END IF IF A$ = "Y" OR A$ = "y" THEN LEFT = MIDDLE + 1 ELSE RIGHT = MIDDLE LOOP END