数当てゲーム1
10 R=RAN#*10:R=ROUND(R,-1):B=1
20 INPUT "1ケタセイスウ";A
25 FOR I=1 TO 27:PRINT TAB(I);"エート";:NEXT I:PRINT "!!!!";
30 IF R=A THEN GOTO 60
40 PRINT R-A;"ズレテイマス ";B=B+1
50 GOTO 20
60 PRINT B;"カイデ セイカシマシタ";END
FX-840Pにて動作チェック
0 件のコメント:
コメントを投稿