>>73
どうでしょうか。>>62を参考にさせていただきました。試してないんでアレですが…(汗
答えは25、チャンスは50回で、五回入力毎に嘘をつくようになってると思います。


10 REM
20 PRINT"数あて"
30 A=25
35 READ U
40 INPUT B
50 IF A=B THEN GOTO 130
60 LET X=X+1
65 IF A=U THEN GOTO 150
70 IF A>B THEN PRINT "もっと大きい"
80 IF A<B THEN PRINT "もっと小さい"
90 IF X=50 THEN GOTO 110
100 GOTO 40
110 PRINT "答えは25です"
120 GOTO 140
130 PRINT "正解"
140 END

150 IF A<B THEN PRINT "もっと大きい"
160 IF A>B THEN PRINT "もっと小さい"
170 IF X=50 THEN GOTO 110
180 GOTO 35

190 DATA 5,10,15,20,25,30,35,40,45