ｸｲｽﾞ大陸
un
問題文を読む(339 文字)
| ◎解答・解説 | 【!十進BASICにて開くと吉。! !今日は2012/01/20→20120120と8桁で表せます。 PRINT "1000年01月01日から9999年12月31日までの日付のうち、" PRINT "ABCABCABのタイプになる日付を求めてください。" 1000 LET I=0 1100 FOR Z=100 TO 999 1200 LET X=Z*10^5+Z*10^2+INT(Z/10) 1300 LET Y=INT(X/10^4) 1400 LET M=INT(X/10^2-Y*10^2) 1500 LET D=INT(X-Y*10^4-M*10^2) 1550 IF M=0 THEN GOTO 2200 1600 IF M>0 AND M<13 THEN GOTO 1800 1700 IF M>12 THEN GOTO 2200 1750 IF D=0 THEN GOTO 2200 1800 IF D>0 AND D<32 THEN GOTO 2000 1900 IF D>31 THEN GOTO 2200 2000 LET I=I+1 2100 PRINT X;I 2200 NEXT Z 2300 END 実行結果 ▼▼▼▼▼▼▼▼ 10110110 1 10210210 2 10310310 3 10410410 4 10510510 5 10610610 6 10710710 7 10810810 8 10910910 9 11011011 10 11111111 11 11211211 12 20120120 13 20220220 14 20320320 15 20420420 16 20520520 17 20620620 18 20720720 19 20820820 20 20920920 21 21021021 22 21121121 23 21221221 24 30130130 25 30230230 26 30330330 27 30430430 28 30530530 29 30630630 30 30730730 31 30830830 32 30930930 33 31031031 34 31131131 35 31231231 36 ▲▲▲▲▲▲▲▲】 |
スローガン：囁き欄あり（答えがわかったら皆に内緒で囁いてね！）
ロック中につき閲覧専用となってます| Page: 1 | |
| Page: 1 | |
問題へジャンプ
河野真衣 (25 文字)