数当てゲーム2 

2012年04月30日(月) 8時50分
10 R=RAN#*1000:P=INT(R):R$-STR$(P):I$=RIGHT$(R$,3):C=0:E=1
20 PRINT "3ケタ スウジ ニュウリョク";:A$=INPUT$(3):PRINT "
"A$;:B$=I$+A$
30 FOR I=1 TO 3
40 IF MID(A$,I,1)=MID(I$,I,1) THEN C=C+1
50 NEXT I:PRINT:PRINT "アッタタ ケタスウ";C;:PRINT
60 IF C=3 THEN GOTO 80
70 C=0:E=E+1:GOTO 20
80 PRINT E; "カイデセイカイ":END

FX-840Pにて動作確認
プロフィール
  • プロフィール画像
  • アイコン画像 ニックネーム:casio
読者になる
2012年04月
« 前の月  |  次の月 »
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30
最新コメント
ヤプミー!一覧
読者になる