{* Задача223 *}

REM basic

' Игра "Извлеки корень третьей степени". Машина генерирует
' случайное целое положительное число. Пользователь в уме извлекает
' корень третьей степени из него и вводит ответ. Если ответ не
' верен, то программа сообщает о том, что он больше или меньше.


CLS
PRINT "Игра: Извлеки  корень третьей степени."
P = 1
RANDOMIZE TIMER
x = INT(RND * 100)
res = x ^ (1 / 3)
PRINT "Извлеките в уме корень третьей степени из числа"; x
10 INPUT "Введите результат: ", y
If y = res Then
        PRINT "Вы дали правильный ответ с" + STR$(P) + "-го раза."
ElseIf y < res Then
        PRINT "Число больше введенного"
        P = P + 1
        GoTo 10
ElseIf y > res Then
        PRINT "Число меньше введенного"
        P = P + 1
        GoTo 10
End If
End