参加型ナゾトキサイト『クイズ大陸』で、脳トレをどうぞ！

FAQ

RSS
@quiz_tairikuさんをフォロー

ABCABCAB

難易度：★★ 　

un 2012/01/20 16:18

今日は2012/01/20→20120120と8桁で表せます。
1000年01月01日から9999年12月31日までの日付のうち、
ABCABCABのタイプになる日付を求めてください。
解答公開は問題の性質上、2012/01/21/00:00頃といたします。 (＞o＜)




	【!十進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=Z10^5+Z10^2+INT(Z/10) 1300 LET Y=INT(X/10^4) 1400 LET M=INT(X/10^2-Y10^2) 1500 LET D=INT(X-Y10^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 ▲▲▲▲▲▲▲▲】

回答募集は終了しました。

▲ △ ▽ ▼ No.1

un 2012/01/20 19:19

久しぶりの出題です。投稿したあとに、ミスが発覚しました。 (;o;)

ロックしたらミスの解答が出るので、最後にうるう年の修正をした
正解をコメントに投稿いたします。
くれぐれもこの問題では、

Ａ

で表示される解答は明らかにミスですので
お取り上げにならないでください。
unでした。m(_ _)m

▲ △ ▽ ▼ No.2

ヒミツ

河野真衣 2012/01/20 22:13

こんな答えでいいんですか?

un そうです、その答えも解の中に含まれます。 (**)

もっと"答え"＝解は存在しますよ。
頑張って探してみてください。

▲ △ ▽ ▼ No.3

ヒミツ

或る所 2012/01/20 22:26

どうでしょうか？

un そうです、その答えも解の中に含まれます。 (**)

もっと"答え"＝解は存在しますよ。
頑張って探してみてください。

▲ △ ▽ ▼ No.4

un 2012/01/21 00:00

プログラム
▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
!十進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
1560 IF M=2 THEN GOTO 1740
1600 IF M>0 AND M<13 THEN GOTO 1800
1700 IF M>12 THEN GOTO 2200
1740 IF INT(Y/4)=0 THEN GOTO 1743
1741 IF INT(Y/4)><0 THEN GOTO 1742
1742 IF D>0 AND D<29 THEN GOTO 2000
1743 IF D>0 AND D<30 THEN GOTO 2000
1744 IF D>29 THEN GOTO 2200
1745 IF D>30 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
▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
実行結果
▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
1000年01月01日から9999年12月31日までの日付のうち、
ABCABCABのタイプになる日付を求めてください。
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
30330330 26
30430430 27
30530530 28
30630630 29
30730730 30
30830830 31
30930930 32
31031031 33
31131131 34
31231231 35
▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

▲ △ ▽ ▼ No.5

un 2012/01/21 00:02

下記に訂正
!今日は2012/01/20→20120120と8桁で表せます。!

▲ △ ▽ ▼ No.6

ヒミツ

KST 2012/01/21 00:06

一応、手計算で出来るだけ求めてみました。 (^^;)

足りないかもしれませんが… (-へ-;)

un 1111/10/11は間違いです。
いえ、私も出題しながらミスしますので、
決して人のことを言えませんよ。orz

▲ △ ▽ ▼ No.7

un 2012/01/21 00:14

31131131 34 はまちがいですね。
なんでー！ (;o;)

答えはこれを除いた34個です。
プログラムの修正は、後で出します。

▲ △ ▽ ▼ No.8

ヒミツ

KST 2012/01/21 00:27

おっと、まさかの転記ミス… (・o・∥)

un 同じ様なミスをやってしまったんです。
答えなのにー。 (;o;)

▲ △ ▽ ▼ No.9

un 2012/01/21 00:51

解答です。これ荒らしみたいに思われたらいやだな。
プログラム
▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
REM 十進BASICにて開くと吉。
REM 今日は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
1551 IF M=1 OR M=3 OR M=5 OR M=7 OR M=8 OR M=10 OR M=12 THEN GOTO 1800
1552 IF M=2 THEN GOTO 1740
1553 IF M=4 OR M=6 OR M=9 OR M=11 THEN GOTO 1760
1700 IF M>12 THEN GOTO 2200
1740 IF INT(Y/4)=0 THEN GOTO 1743
1741 IF INT(Y/4)><0 THEN GOTO 1742
1742 IF D>0 AND D<29 THEN GOTO 2000
1743 IF D>0 AND D<30 THEN GOTO 2000
1744 IF D>29 THEN GOTO 2200
1745 IF D>30 THEN GOTO 2200
1750 IF D=0 THEN GOTO 2200
1760 IF D>0 AND D<31 THEN GOTO 2000
1770 IF D>30 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
▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
実行結果
▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
1000年01月01日から9999年12月31日までの日付のうち、
ABCABCABのタイプになる日付を求めてください。
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
30330330 26
30430430 27
30530530 28
30630630 29
30730730 30
30830830 31
30930930 32
31031031 33
31231231 34
▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲

このクイズのヒント

ヒント知らないよ

このクイズの参加者（3人）

河野真衣
　
或る所
　
KST

ジャンル・キーワード

携帯用ページ

携帯電話のQRコード読み取り機能でこのページを見られます。

広告お買い物は下記のリンクからどうぞ

楽天市場はこちらから
Amazonはこちらから

広告
クイズ大陸関連書籍