10 REM p3

20 REM Язык Quick Basic 4.0
30 REM Игра "Угадай число"
40 REM Задача 80.18
50 DIM a AS INTEGER, b AS INTEGER, c AS INTEGER
60 a = RND * 100: REM Угадываемое число
70 b = 1: REM Число попыток
80 PRINT "Введите число:"
90 INPUT c
100 IF c < a THEN b = b + 1: PRINT "Угадываемое число больше": GOTO 90
110 IF c > a THEN b = b + 1: PRINT "Угадываемое число меньше": GOTO 90
120 PRINT "Число попыток"; b
130 END