ゴンとも
十進basic で4桁の整数をabcd として

for a=1 to 9
for b=0 to 9
if b=a then goto 30
for c=0 to 9
if c=a or c=b then goto 20
for d=0 to 9
if d=a or d=b or d=c then goto 10
if a+b<>9 and a+c<>9 and a+d<>9 and b+c<>9 and b+d<>9 and c+d<>9 then let s=s+1
10 next d
20 next c
30 next b
40 next a
print s
end

f9押して 1728・・・・・・(答え)
豊川市   8月27日(木) 0:06:22   MAIL:fttnm528@ybb.ne.jp   43640
ベルク・カッツェ
09,18,27,36,45の組み合わせから各桁1つずつ選んでいき、それぞれどちらを使うかで5×4×3×2×16、千の位が0になる場合が4×3×2×8でこれは除くので、まとめると4×3×2×8×9=1920-192で答えは1728になりました。
   8月27日(木) 0:09:26     43642
物理好き
私もbasicを使うので、#43643とほぼ同じですが、
一時!=と==を間違えたので9と出てしまいました...
大阪   8月27日(木) 0:11:30   MAIL:butsuri.0523@gmail.com HomePage:Math Labyrinth 第6回出題中(参加者不足)  43644
物理好き
【訂正】43643ではなく#43640です。
大阪   8月27日(木) 0:12:40   MAIL:butsuri.0523@gmail.com HomePage:Math Labyrinth 第6回出題中(参加者不足)  43645
今年から高齢者
abcdとすると、aは1〜9まで、
bはaとaに足して9になる数以外の8通り、
cはaとaに足して9になる数とbとbに足して9になる数以外の6通り、
dは同様にして4通り。
9*8*6*4=1728通りとしました
   8月27日(木) 0:17:09     43646
baLLjugglermoka
9*9*8*7=4536を送信したお仲間いらっしゃいますか?
考え直して9*8*6*4=1728でした。
   8月27日(木) 0:22:26     43647
ベルク・カッツェ
#43646今日から高齢者さん
なるほど、それなら場合分けしなくて済みますね。勉強になります。

場合分けというか、全体から不適なものを除外?
   8月27日(木) 0:27:37     43648
スモークマン
ベルクカッツェさんと同じでしたぁ ^^
5!*2^4-4!*2^3=1920-192=1728

but...今年から高齢者さんのがスマートね♪
金即是空 ^^;v   8月27日(木) 0:47:01     43649
Mr.ダンディ
ベルクカッツェさんと同じでした。
こういう問題は {0,9}{1,8}{2,7}{3,6}{4,5}の組を考えるものと決めてかかって解き
今年から高齢者さんの #43646のような発想ができませんでした。(頭が堅くなっている・・)
   8月27日(木) 0:58:21     43650
あめい
ベルク・カッツェさんと同じように、09,18,27,36,45の組み合わせから各桁1つずつ選んでいくと考えたのですが、
0を含むのが残り4ペアから3つ選んで各ペア2つずつあるから4*2^3=32通り、この並べ替えが3*3*2=18通りなので32*18=576通り
0を含まないのが9を含む(32通り)+9を含まない(2^4=16通り)=48通り。この並べ替えが4*3*2*1=24通りなので48*24=1152通り
576+1152=1728通りと、面倒な方法で出していました。
お馬崎   8月27日(木) 2:21:15     43651
ハラギャーテイ
おはようございます

プログラムです。
台風は直撃を食らいましたが、無事でした。
山口   8月27日(木) 5:33:21   HomePage:制御工学にチャレンジ  43652
巷の夢
最初は足して9となる組み合わせが、2個の者、1個のもので分けてと考えておりましたが、重複が複雑で、発想を転換して、今年から高齢者殿と全く同じ発想に至り正答にこぎつけました。但し、最初はすべての数値が異なるを読み飛ばしており、中々入れませんでした。
真白き富士の嶺   8月27日(木) 8:53:27     43653
???
Sub Macro1()
Cells(1, 1).Value = 0
Dim a As Integer, b As Integer, c As Integer, d As Integer
For a = 1 To 9
For b = 0 To 9
If a <> b And a + b <> 9 Then
For c = 0 To 9
If a <> c And b <> c And a + c <> 9 And b + c <> 9 Then
For d = 0 To 9
If a <> d And b <> d And c <> d And a + d <> 9 And b + d <> 9 And c + d <> 9 Then
Cells(1, 1).Value = Cells(1, 1).Value + 1
Cells(Cells(1, 1).Value, 2).Value = a
Cells(Cells(1, 1).Value, 3).Value = b
Cells(Cells(1, 1).Value, 4).Value = c
Cells(Cells(1, 1).Value, 5).Value = d
End If
Next d
End If
Next c
End If
Next b
Next a
End Sub
   8月27日(木) 9:33:40     43654
次郎長
こういう問題一発正解は非常に嬉しいので書き込み。
私も、09,18,27,36,45の5組から5×4×3×2×16=1920
千の位が0になる場合、慎重に考えて4×3×2×8=192
1920-192=1728
お願い!行け! 合った!


   8月27日(木) 9:38:06     43655
uchinyan
はい,こんにちは。さて,今回の問題は...
これは幾つかの考え方のできそうな問題です。算チャレ的には標準的かな。
今日は少し忙しく時間が取れないので,簡単にこんな感じで。

4桁の整数を アイウエ とします。
アは 1 〜 9 で 9 個。
イは 0 〜 9 のうち ア と異なり和が 9 にならないので 10 - 2 = 8 個。
ウは 0 〜 9 のうち ア,イ と異なり和が 9 にならないので 10 - 4 = 6 個。
エは 0 〜 9 のうち ア,イ,ウ と異なり和が 9 にならないので 10 - 6 = 4 個。
そこで,求める個数は,9 * 8 * 6 * 4 = 1728 個,になります。

この解法は,後ろに数字を付け加えていくので,漸化式ぽい解法とも言えます。
他の解法として,例えば,
アイウエに 0 があるかどうかで場合分け,8 * 6 * 4 * (4 + 2) + 8 * 6 * 4 * 3 = 1728 個,
全体から和が 9 になるものを除く,9 * 9 * 8 * 7 - 9 * 8 * 7 * 6 + 9 * 8 * 3 = 1728 個,
などがあります。
ネコの住む家   8月27日(木) 14:01:45   MAIL:uchi@sco.bekkoame.ne.jp   43656
uchinyan
掲示板を読みました。

#43642#43649#43650#43655
和が 9 になるペアから一つを各桁ごとに選び千の位が 0 になる場合を除く解法。
なるほど,これはいいですね。
以前に同様の考え方で似たような問題を解いたことを思い出しました。

#43646#43653#43656
上位桁から条件に合った選び方をしていく解法。

#43651
和が 9 になるペアから一つを 0 を含むかどうかで場合分けして各桁ごとに選ぶ解法。

#43640#43644#43652#43654
プログラムによる解法。
ネコの住む家   8月27日(木) 14:40:21   MAIL:uchi@sco.bekkoame.ne.jp   43657
ホームズの弟子
一発正解なので書き込みします。千の位は1〜9までの9つ。百の位に千の位と、千の位と足して9になる数は使えない。よって使える数は8つ。十、一の位も同じように考えて9×8×6×4で1728
   8月29日(土) 16:05:00     43658
東大2000年理系第5問
で出題されていましたね。
   8月29日(土) 19:17:21     43659
物理好き
0、9とかを組にするというアイデアがなかった→プログラミング
大阪   8月30日(日) 20:11:57   MAIL:butsuri.0523@gmail.com HomePage:Math Labyrinth 第6回出題中(参加者不足)  43660
小西孝一
相変わらず神経過敏(*_*)
   8月31日(月) 11:48:45     43661
小西孝一
9*8*6*4
でした。
   8月31日(月) 11:58:38     43662
小西孝一
携帯からテスト
   9月1日(火) 11:13:04   MAIL:nikotan@fat.coara.or.jp   43663