茖永��

ベルク・カッツェ

分子に5と2の倍数が必要。
1が2枚のとき、1通り。
1が1枚のとき、分母が3、3、4の3通り。
1が0枚のとき、分母に2枚の場合が2，2の1通り、
分母が1枚のとき全部で11通り。
地道に調べて16通りになりました。

　　 7月22日（木） 0:15:01　　　　50678

スモークマン

掛け算だけではダメという意味で...
2x5(x1/1,x2/2,...,x9/9)
4/5(x1/2,x2/4)
6x5(x1/3,x2/6)
8x5(x1/4,/2/2,x2/8)

so...9+2+2+3=16個でしたか ^^;
何回か間違いを送りました ^^;;

　　 7月22日（木） 0:30:15　　　　50679

Jママ

5に1から順に掛けて式を探すという無思想な方法で、
5×8÷2÷2にしばらく気づかずにいました

　　 7月22日（木） 0:40:46　　　　50680

今年から高齢者

5と偶数が必要
5*2*：1/1、2/2、3/3、4/4、5/5、6/6、7/7、8/8、9/9、
5*4*：1/2、2/4、3/6、4/8
5*6*：1/3、2/6、3/9
5*8*：1/4、2/8、/2/2
重複が、2544、2566、2588
全部で、9+4+3+3-3＝16

　　 7月22日（木） 0:41:27　　　　50681

スモークマン

#50681
そうか...☆
わたしのは...たまたま合ってただけなのね ^^;
あな恥ずかしや...

　　 7月22日（木） 0:50:15　　　　50682

ベルク・カッツェ

＞掛け算だけではダメ

掛け算だけは1、1、2、5しかなく、これは割り算を入れることもできますね。

　　 7月22日（木） 0:58:08　　　　50683

いちごみるく

カードの並べ方まで考えるものだと思い303通りとなってました。
#define rep(i, n) for (int i = 0; i < (n); ++i)
#define rep2(i,l,r)for(int i=(l);i<(r);++i)
int main() {
ios::sync_with_stdio(false);
cin.tie(nullptr);
int ans = 0;
rep2(i, 1, 10)rep2(j, i, 10)rep2(k, j, 10)rep2(l, k, 10) {
bool b = false;
rep(m, 2)rep(n, 2)rep(o, 2)rep(p, 2) {
int x = i * j * k * l;
int y = 1;
if (m)y *= i * i;
if (n)y *= j * j;
if (o)y *= k * k;
if (p)y *= l * l;
if (x == y * 10)b = true;
}
if (b) ans++;
}
cout << ans << endl;
return 0;
}

　　 7月22日（木） 1:13:36　　　　50684

いちごみるく

数字の並びまで考えて197通り
数字の間の四則演算が異なるものも別に数えると303通りかな

　　 7月22日（木） 1:21:38　　　　50685

hrgn

mathematicaで解きました。
(x, y) -> (x*y, x/y)を3回合成してできる集合が
10を含むかどうか調べています。

lst = DeleteDuplicates[Sort /@ Tuples[Range@9, 4]];
f[{x_, y_}] := {x*y, x/y};
g[{a_, b_, c_, d_}] :=
MemberQ[Flatten[f[#, d] & /@ f[#, c] & /@ f@{a, b}], 10];
ans = Length@Select[lst, g]

　　 7月22日（木） 1:36:08　　　　50686

ゴンとも

#50685
>数字の間の四則演算が異なるものも別に数えると303通りかな

十進Basicで

FOR a=1 TO 9
FOR b=1 TO 9
FOR c=1 TO 9
FOR d=1 TO 9
IF a*b*c*d=10 THEN LET s1=s1+1
IF a*b*c/d=10 THEN let s2=s2+1
IF a*b/c*d=10 THEN LET s3=s3+1
IF a/b*c*d=10 THEN LET s4=s4+1
IF a/b/c*d=10 THEN LET s5=s5+1
IF a/b*c/d=10 THEN LET s6=s6+1
IF a*b/c/d=10 THEN LET s7=s7+1
IF a/b/c/d=10 THEN LET s8=s8+1
NEXT d
NEXT c
NEXT b
NEXT a
PRINT s1;s2;s3;s4;s5;s6;s7;s8;s1+s2+s3+s4+s5+s6+s7+s8
END

f9押して
12 81 65 51 14 15 16 0 254

で254通りになりました!!

豊川市　　 7月22日（木） 1:42:35　　 MAIL:fttnm528@ybb.ne.jp 　　50687

hrgn

50686にあげたコードは間違いです。
書き込みの訂正がうまくいかないので正しいものを貼ります。

lst = DeleteDuplicates[Sort /@ Tuples[Range@9, 4]];
f[x_, y_] := Flatten[{x*y, x/y}];
g[{a_, b_, c_, d_}] := MemberQ[Fold[f, a, {b, c, d}], 10];
ans = Length@Select[lst, g]

　　 7月22日（木） 2:43:48　　　　50688

いちごみるく

FOR a=1 TO 9
FOR b=1 TO 9
FOR c=1 TO 9
FOR d=1 TO 9
IF a*b*c*d=10 THEN LET s1=s1+1
IF a*b*c=10*d THEN let s2=s2+1
IF a*b*d=10*c THEN LET s3=s3+1
IF a*c*d=10*b THEN LET s4=s4+1
IF a*d=10*b*c THEN LET s5=s5+1
IF a*c=10*b*d THEN LET s6=s6+1
IF a*b=10*c*d THEN LET s7=s7+1
IF a=10*b*c*d THEN LET s8=s8+1
NEXT d
NEXT c
NEXT b
NEXT a
PRINT s1;s2;s3;s4;s5;s6;s7;s8;s1+s2+s3+s4+s5+s6+s7+s8
END
こうじゃなくても計算途中で少数がでても正しい値が出ますか？

c++で
void f() {
int ans = 0;
rep2(i, 1, 10)rep2(j, 1, 10)rep2(k, 1, 10)rep2(l, 1, 10) {
rep(m, 2)rep(n, 2)rep(o, 2) {
int x = i * j * k * l;
int y = 1;
if (m)y *= j * j;
if (n)y *= k * k;
if (o)y *= l * l;
if (x == y * 10)ans++;
}
}
cout << ans << endl;
}

　　 7月22日（木） 2:59:13　　　　50689

ゴンとも

#50689
すみません自分が違ってて
自分のコードが訂正されて・・・
少数が出ないように分母をはらえば303でした。

あと197は

FOR a=1 TO 9
FOR b=1 TO 9
FOR c=1 TO 9
FOR d=1 TO 9
IF a*b*c*d=10 OR a*b*c=10*d OR a*b*d=10*c OR a*c*d=10*b OR a*d=10*b*c OR a*c=10*b*d OR a*b=10*c*d OR a=10*b*c*d THEN LET s=s+1
NEXT d
NEXT c
NEXT b
NEXT a
PRINT s
END

f9押して　197とでますね。

c++ではどのプログラムで実行できるでしょうか?
gnuとかmicrosoftとか
すみません色々きいちゃって・・・

豊川市　　 7月22日（木） 3:13:12　　 MAIL:fttnm528@ybb.ne.jp 　　50690

紫の薔薇の人

問題文を読み間違えていて、白紙の4枚のカードをA,B,C,Dと区別して、この順番に並べて、間に演算子を置いた場合の数を数えて303を出してしまい、間違えに気づかず時間を浪費しました。
誤りに気が付かず、プログラムを書いて検算しても302が出てしまい、こちらは計算誤差を含んでいたようで、なお混乱しました、
諦めて、今日は寝ようとしたところ、「記入の仕方」であることに気が付いて、初めに場合分けした21通りのうち、記入の仕方の重複を除いて、16通りだと気が付きました。

　　 7月22日（木） 4:51:04　　　　50691

鯨鯢(Keigei)

2×5×1÷1 ，2×5×2÷2 ，2×5×3÷3 ，2×5×4÷4 ，2×5×5÷5 ，
2×5×6÷6 ，2×5×7÷7 ，2×5×8÷8 ，2×5×9÷9 ，
1×4×5÷2 ，1×5×6÷3 ，1×5×8÷4 ，
3×4×5÷6 ，3×5×6÷9 ，4×4×5÷8 ，
5×8÷2÷2　の 16通り

　　 7月22日（木） 6:19:05　　　　50692

みかん

祝日の移動ですっかり出題を忘れていました。４連休で大渋滞、もはや
人流抑制は不可能ですね。盆休みの首都圏はどうなることやら。

分母の積が１、分子の積が１０　～分母の積が９、分子の積が９０
まで順に調べるしかなさそう。
「分母の積が１０、分子の積が１００」だと、分母に数が２つ、分子に数が３つ
いるので、カード４枚（数が全部で４つ）では不可能。従って、分母の積が９
まで調べればよい。

１０→２・５／１・１　
２０→４・５／１・２　　２・２・５／２
３０→５・６／１・３　　２・３・５／３
４０→５・８／１・４　　５・８／２・２　　２・４・５／４
５０→２・５・５／５
６０→３・４・５／６　　２・５・６／６
７０→２・５・７／７
８０→２・５・８／８　　４・４・５／８
９０→２・５・９／９　　３・５・６／９
の１６通り。

「書き出せばよい」という点では算数向きですが、洩れがないように数えるのは
疲れますね。

　　 7月22日（木） 12:00:01　　　　50693

まるケン

基本的に、場合分け＋数え上げです。

場合分けとしては、まずは5が複数の場合、これは１通り。
5が1枚の場合は、残り３枚で２を作ることを考えます。
で、３枚に１が入るかでさらに場合分け。
１が入らない場合は２が入るかどうかで場合分け。
最後に1も2も入らない場合を書き出して合計しました。

でも漏れがないかをプログラムで確認。
アルゴリズムとしては、１～９から４つを選ぶ重複組み合わせの４数に対し、
それぞれが分母に来るか、分子に来るかの１６通りについて分母と分子を計算。
分母が分子の10倍と等しければカウントアップ、、、といった方法です。
意外とあっさりプログラムが欠けて、無事16であることを確認。

ここで調子に乗って、枚数が2から10についても求めたところ、
1, 4, 16, 45, 119, 269, 578, 1131, 2131
と出ました！！
ただ、上記のような愚直な方法だと、N=10では1分以上かかってしまいます。

そこで、4つの数字の中の素因数（2, 3, 5, 7)の個数を調べ、
2や5が偶数個の場合、3や7が奇数個の場合を先にはじくようにしたところ、
N=10でも2秒程度と時間短縮に成功。
で、N＝12まで伸ばしたところ、11=>3370 では6秒、12=>6481 では20秒近くかかる。

なので、さらなる改良。
2のN乗種の演算子の組み合わせ、0から順に計算すると、前半では分母、分子の一方にカードが偏るので、
0から2のN乗-1をシャッフルした順番で計算させてみたところ、N=12でも13秒ちょっとで求まりました。

　　 7月22日（木） 14:39:37　　　　50694

まるケン

あ、さっきの「プログラムが欠けて」は「プログラムが書けて」の間違いですね。トホホ、、、

さて、１から９までという条件を、１から１３までに変えてみました。
４枚だと４４通りって出ました。
昔トランプで似た遊びをしていたのを思い出し、懐かしく思いました。
当時は、４枚で１０を作るとか、４枚で5枚目の数を作るとか、そんなルールだったかなぁ、、、

　　 7月22日（木） 15:10:37　　　　50695

ゴンとも

#50687

自己レスで・・・
303,197より今回の問題の答え16を出す(16よりもその16の数値があっているかわかるように全部を羅列したもので・・・)プログラムの方が難しいのですが
十進Basic で

FOR a=1 TO 9
FOR b=a TO 9
FOR c=b TO 9
FOR d=c TO 9
IF (a*b*c*d=10 OR a*b*c=10*d OR a*b*d=10*c OR a*c*d=10*b OR a*d=10*b*c OR a*c=10*b*d OR a*b=10*c*d OR a=10*b*c*d) OR (a*b*c*d=10 OR a*b*d=10*c OR a*b*c=10*d OR a*c*d=10*b OR a*c=10*b*d OR a*d=10*b*c OR a*b=10*c*d OR a=10*b*c*d) OR (a*b*c*d=10 OR a*b*c=10*d OR a*c*d=10*b OR a*b*d=10*c OR a*d=10*b*c OR a*b=10*c*d OR a*c=10*b*d OR a=10*b*c*d) OR (a*b*c*d=10 OR a*c*d=10*b OR a*b*c=10*d OR a*b*d=10*c OR a*b=10*c*d OR a*d=10*b*c OR a*c=10*b*d OR a=10*b*c*d) OR (a*b*c*d=10 OR a*b*d=10*c OR a*c*d=10*b OR a*b*c=10*d OR a*c=10*b*d OR a*b=10*c*d OR a*d=10*b*c OR a=10*b*c*d) OR (a*b*c*d=10 OR a*b*d=10*c OR b*c*d=10*a OR a*b*c=10*d OR b*c=10*a*d OR a*b=10*c*d OR b*d=10*a*c OR b=10*a*c*d) OR (a*b*c*d=10 OR a*b*c=10*d OR a*b*d=10*c OR b*c*d=10*a OR b*d=10*a*c OR b*c=10*a*d OR a*b=10*c*d OR b=10*a*c*d) OR (a*b*c*d=10 OR a*b*d=10*c OR a*b*c=10*d OR b*c*d=10*a OR b*c=10*a*d OR b*d=10*a*c OR a*b=10*c*d OR b=10*a*c*d) OR (a*b*c*d=10 OR a*b*c=10*d OR b*c*d=10*a OR a*b*d=10*c OR b*d=10*a*c OR a*b=10*c*d OR b*c=10*a*d OR b=10*a*c*d) OR (a*b*c*d=10 OR b*c*d=10*a OR a*b*c=10*d OR a*b*d=10*c OR a*b=10*c*d OR b*d=10*a*c OR b*c=10*a*d OR b=10*a*c*d) OR (a*b*c*d=10 OR a*b*d=10*c OR b*c*d=10*a OR a*b*c=10*d OR b*c=10*a*d OR a*b=10*c*d OR b*d=10*a*c OR b=10*a*c*d) OR (a*b*c*d=10 OR b*c*d=10*a OR a*b*d=10*c OR a*b*c=10*d OR a*b=10*c*d OR b*c=10*a*d OR b*d=10*a*c OR b=10*a*c*d) OR (a*b*c*d=10 OR a*b*c=10*d OR a*c*d=10*b OR b*c*d=10*a OR c*d=10*a*b OR b*c=10*a*d OR a*c=10*b*d OR c=10*a*b*d) OR (a*b*c*d=10 OR a*c*d=10*b OR a*b*c=10*d OR b*c*d=10*a OR b*c=10*a*d OR c*d=10*a*b OR a*c=10*b*d OR c=10*a*b*d) OR (a*b*c*d=10 OR a*b*c=10*d OR b*c*d=10*a OR a*c*d=10*b OR c*d=10*a*b OR a*c=10*b*d OR b*c=10*a*d OR c=10*a*b*d) OR (a*b*c*d=10 OR b*c*d=10*a OR a*b*c=10*d OR a*c*d=10*b OR a*c=10*b*d OR c*d=10*a*b OR b*c=10*a*d OR c=10*a*b*d) OR (a*b*c*d=10 OR a*c*d=10*b OR b*c*d=10*a OR a*b*c=10*d OR b*c=10*a*d OR a*c=10*b*d OR c*d=10*a*b OR c=10*a*b*d) OR (a*b*c*d=10 OR b*c*d=10*a OR a*c*d=10*b OR a*b*c=10*d OR a*c=10*b*d OR b*c=10*a*d OR c*d=10*a*b OR c=10*a*b*d) OR (a*b*c*d=10 OR a*b*d=10*c OR a*c*d=10*b OR b*c*d=10*a OR c*d=10*a*b OR b*d=10*a*c OR a*d=10*b*c OR d=10*a*b*c) OR (a*b*c*d=10 OR a*c*d=10*b OR a*b*d=10*c OR b*c*d=10*a OR b*d=10*a*c OR c*d=10*a*b OR a*d=10*b*c OR d=10*a*b*c) OR (a*b*c*d=10 OR a*b*d=10*c OR b*c*d=10*a OR a*c*d=10*b OR c*d=10*a*b OR a*d=10*b*c OR b*d=10*a*c OR d=10*a*b*c) OR (a*b*c*d=10 OR b*c*d=10*a OR a*b*d=10*c OR a*c*d=10*b OR a*d=10*b*c OR c*d=10*a*b OR b*d=10*a*c OR d=10*a*b*c) OR (a*b*c*d=10 OR a*c*d=10*b OR b*c*d=10*a OR a*b*d=10*c OR b*d=10*a*c OR a*d=10*b*c OR c*d=10*a*b OR d=10*a*b*c) OR (a*b*c*d=10 OR b*c*d=10*a OR a*c*d=10*b OR a*b*d=10*c OR a*d=10*b*c OR b*d=10*a*c OR c*d=10*a*b OR d=10*a*b*c) THEN PRINT a;b;c;d
NEXT d
NEXT c
NEXT b
NEXT a
END

f9押して
1 1 2 5
1 2 4 5
1 3 5 6
1 4 5 8
2 2 2 5
2 2 5 8
2 3 3 5
2 4 4 5
2 5 5 5
2 5 6 6
2 5 7 7
2 5 8 8
2 5 9 9
3 4 5 6
3 5 6 9
4 4 5 8 　より　16・・・・・・(答え)

豊川市　　 7月22日（木） 19:29:28　　 MAIL:fttnm528@ybb.ne.jp 　　50696

いちごみるく

#50690
c++はVisual Studio 2019とかをインストールしてコンパイルしてもらえると。

簡単な数学の問題を解くぐらいなら
https://wandbox.org/上にコード打ち込んで実行とかでも十分です。

私のこの問題を16,197,303になるそれぞれの解釈で解いたコードを以下のurlで共有しておきます。
https://wandbox.org/permlink/cGxECSmWUQJ9b9Up

　　 7月23日（金） 0:58:43　　　　50697

ゴンとも

#50697
今使っているパソコンにMicrosoft Visual C++ 2010 Express　がインストールされてました。(ほとんど使用したことがないですが・・・)wandboxのほうはブラウザー上でコードが実行できるのですね。それは知りませんでした。有用な情報ありがとうございました。

豊川市　　 7月23日（金） 2:43:15　　 MAIL:fttnm528@ybb.ne.jp 　　50698

「数学」小旅行

休日で、落ち着かず、今頃になりました。ときどき思い出しては
頭の中でなんかいいやり方は無いかと模索しましたが、
結局、５の個数で分けて、７を含むかどうかで分けて、
次に３の倍数の入れ方を考えて、最後に２の累乗の入れ方でと、
書き出すしか手がありませんでした。
これから掲示板を見させていただきます。

　　 7月23日（金） 6:17:54　　　　50699

「数学」小旅行

あんまりじょうずとはいえませんが、Rubyで、

p [1,2,3,4,5,6,7,8,9].repeated_permutation(4).to_a.map{|c|c.sort}.uniq.delete_if{|b|a=[Rational(b[0]),Rational(b[1]),Rational(b[2]),Rational(b[3])];
a[0]*a[1]*a[2]*a[3]!=10 && a[0]*a[1]*a[2]/a[3]!=10 && a[0]*a[1]/a[2]*a[3]!=10 && a[0]*a[1]/a[2]/a[3]!=10 && a[0]/a[1]*a[2]*a[3]!=10 &&
a[0]/a[1]*a[2]/a[3]!=10 && a[0]/a[1]/a[2]*a[3]!=10 && a[0]/a[1]/a[2]/a[3]!=10}

として、結果は以下の通りでした。

[[1, 1, 2, 5], [1, 2, 4, 5], [1, 3, 5, 6], [1, 4, 5, 8], [2, 2, 2, 5], [2, 3, 3, 5], [2, 4, 4, 5], [2, 5, 5, 5],
[2, 5, 6, 6], [2, 5, 7, 7], [2, 5, 8, 8], [2, 5, 9, 9], [3, 4, 5, 6], [3, 5, 6, 9], [4, 4, 5, 8], [2, 2, 5, 8]]

　　 7月23日（金） 20:16:09　　　　50700

ことりちゅん(・8・)

「５」と２の倍数（２・４・６・８）が１枚必要。
①２の倍数が「２」
　残る２枚で　ｎ／ｎ（×ｎ÷ｎ）として、ｎは１～９の９通り　

②２の倍数が「４」
　残る２枚で　１／２　とすればよいが、
　分子が１の場合は「×１」と「÷１」の２パターンがある
　よって２通り

③２の倍数が「６」
　残る２枚で　１／３　②と同様２通り

④２の倍数が「８」
　残る２枚で　１／４　②と同様２通り
　残る１枚で　「÷２÷２」とするのが１通り

①～④で16通り　

埼玉県さいたま市　　 7月23日（金） 23:47:23　　　　50701

SECOND

!十進BASIC で虱潰し。４数を分数形の配置で網羅
!「重複組合せ」の FOR～NEXT 展開は、ゴンともさんの方法、いいですね！そのままです。

!分子０個分母４個や、
!分子１個分母３個の配分は、等式＝１０未満で除く
!分子２個分母２個の配分　a*b/c/d=10 OR a*c/b/d=10 OR a*d/b/c=10 OR b*c/a/d=10 OR b*d/a/c=10 OR c*d/a/b=10
!分子３個分母１個の配分　a*b*c/d=10 OR a*b*d/c=10 OR a*c*d/b=10 OR b*c*d/a=10
!分子４個分母０個の配分　a*b*c*d=10

PRINT "カードを区別しない「重複組合せ」の場合、１６通り"
FOR a=1 TO 9
FOR b=a TO 9
FOR c=b TO 9
FOR d=c TO 9
IF a*b/c/d=10 OR a*c/b/d=10 OR a*d/b/c=10 OR&
& b*c/a/d=10 OR b*d/a/c=10 OR c*d/a/b=10 OR&
& a*b*c/d=10 OR a*b*d/c=10 OR a*c*d/b=10 OR b*c*d/a=10 OR&
& a*b*c*d=10 THEN
LET n=n+1
PRINT USING "###) # # # #": n,a,b,c,d
END IF
NEXT d
NEXT c
NEXT b
NEXT a

LET n=0
PRINT "カードを区別する「重複順列」の場合、２３６通り"
FOR a=1 TO 9
FOR b=1 TO 9
FOR c=1 TO 9
FOR d=1 TO 9
IF a*b/c/d=10 OR a*c/b/d=10 OR a*d/b/c=10 OR&
& b*c/a/d=10 OR b*d/a/c=10 OR c*d/a/b=10 OR&
& a*b*c/d=10 OR a*b*d/c=10 OR a*c*d/b=10 OR b*c*d/a=10 OR&
& a*b*c*d=10 THEN
LET n=n+1
PRINT USING "###) # # # #": n,a,b,c,d
END IF
NEXT d
NEXT c
NEXT b
NEXT a

END

　　 7月24日（土） 6:26:48　　　　50702

SECOND

!訂正できないので・・
OPTION ARITHMETIC RATIONAL ! ←この行を冒頭に付けて下さい。

!幸い先のリストの出力では、何の違いも生じていませんでしたが、、
!十進BASIC のデフォルト(option arithmetic decimal)は、以下の様になるので、
!PRINT 2/7*5*7-10 ! =-3.E-18
!PRINT 2*7*5/7-10 ! = 0
!有理数（数値を分数で扱う option arithmetic rational）で解決します。

　　 7月26日（月） 7:16:12　　　　50703

「数学」小旅行

303通りを検出すＲｕｂｙプログラムです。
再帰呼び出しを使いました。$ansで数字の並びも出力します。

>$k=0
>$ans=[]
>$r=[1,2,3,4,5,6,7,8,9]

>def c(n,j,a)
> $ans[n]=j
> if n<4
> for i in $r
> c(n+1,i,a*i)
> if n!=0 then c(n+1,i,a/Rational(i)) end
> end
> else
> if a==10 then p $ans;$k=$k+1 end
> end
>end

>c(0,0,1)
>p $k

ブラウザでは、いつもhttps://paiza.io/を使ってましたが、

今回、https://wandbox.org/でやってみました。これもいいですね。ありがとうございました。

　　 7月26日（月） 8:37:37　　　　50704

SECOND

!十進BASIC で虱潰し。くどいかも！、、いちごみるくさんのサンプルに、、
OPTION ARITHMETIC RATIONAL

SUB disp( a, ab$, b, bc$, c, cd$, d)
LET w$=STR$(a)& ab$& STR$(b)& bc$& STR$(c)& cd$& STR$(d)
LET s$=s$& "　"& w$& "=10"
LET s=s+1
END SUB

PRINT "!４数の「重複順列」でその乗除の順を網羅する"
FOR a=1 TO 9
FOR b=1 TO 9
FOR c=1 TO 9
FOR d=1 TO 9
LET s$=""
IF a/b/c*d=10 THEN CALL disp( a,"÷",b,"÷",c,"×",d)
IF a/b*c/d=10 THEN CALL disp( a,"÷",b,"×",c,"÷",d)
IF a/b*c*d=10 THEN CALL disp( a,"÷",b,"×",c,"×",d)
IF a*b/c/d=10 THEN CALL disp( a,"×",b,"÷",c,"÷",d)
IF a*b/c*d=10 THEN CALL disp( a,"×",b,"÷",c,"×",d)
IF a*b*c/d=10 THEN CALL disp( a,"×",b,"×",c,"÷",d)
IF a*b*c*d=10 THEN CALL disp( a,"×",b,"×",c,"×",d)
IF ""< s$ THEN
LET n=n+1
PRINT USING "! ###) >>>> ###)": n,a,b,c,d,s;
PRINT s$
END IF
NEXT d
NEXT c
NEXT b
NEXT a

!４数の「重複順列」でその乗除の順を網羅する
! 1) 1125 2)　1÷1×2×5=10　1×1×2×5=10
! 2) 1152 4)　1÷1×5×2=10　1×1×5×2=10
! 3) 1215 6)　1×2÷1×5=10　1×2×1×5=10
! 4) 1245 7)　1÷2×4×5=10
! 5) 1251 9)　1×2×5÷1=10　1×2×5×1=10
! 6) 1254 10)　1÷2×5×4=10
! 7) 1356 11)　1÷3×5×6=10

! 100) 5211 159)　5×2÷1÷1=10　5×2÷1×1=10　5×2×1÷1=10　5×2×1×1=10
! 101) 5214 161)　5÷2÷1×4=10　5÷2×1×4=10
! 102) 5222 164)　5÷2×2×2=10　5×2÷2×2=10　5×2×2÷2=10

! 194) 9529 300)　9×5×2÷9=10
! 195) 9592 301)　9×5÷9×2=10
! 196) 9925 302)　9÷9×2×5=10
! 197) 9952 303)　9÷9×5×2=10

END

　　 7月26日（月） 17:26:33　　　　50705

おすまん

正答率が低いので、今回は無理だな、と思っていましたが、
意外とすんなりと入れてしまいました。数え上げましたが、
珍しくキチンと数えられたようです v(^^

somewhere in the world　　 7月27日（火） 20:40:08　　　　50706

にこたん

5、2、2、8と5、3、4、6と5、3、6、9と5、4、4、8が以外でした。
もうすぐ夏休みです。。

超ど田舎　　 7月27日（火） 21:56:18　　　　50707

おすまん

10分くらいで正解にたどり着いたので、臨戦態勢で臨んでいれば、
一生で最初で最後の TOP10 に入れたかも (^^;;

somewhere in the world　　 7月28日（水） 1:46:59　　　　50708