f23[n_]:=(
d=IntegerDigits[n];
p=Permutations[d,{5}];
prd=(10 #[[1]]+#[[2]])(100 #[[3]]+10 #[[4]]+#[[5]])& /@p;
i=Position[prd,n];
ans={};
If[i!={},
idx=i[[1]][[1]];
re=p[[idx]];
AppendTo[ans,{10 re[[1]]+re[[2]],100re[[3]]+10re[[4]]+re[[5]]}]
];
ans
)
res=Partition[Flatten@Table[f23[n],{n,10000,99999}],2];
{{51, 201, 10251}, {26, 401, 10426}, {21, 501, 10521}, {15, 705, 10575},
> {84, 141, 11844}, {60, 201, 12060}, {51, 246, 12546}, {50, 251, 12550},
> {21, 600, 12600}, {14, 926, 12964}, {41, 323, 13243}, {15, 930, 13950},
> {35, 401, 14035}, {41, 350, 14350}, {30, 501, 15030}, {51, 300, 15300},
> {24, 651, 15624}, {75, 231, 17325}, {47, 371, 17437}, {81, 225, 18225},
> {65, 281, 18265}, {87, 210, 18270}, {21, 906, 19026}, {21, 915, 19215},
> {86, 251, 21586}, {27, 810, 21870}, {35, 725, 25375}, {47, 542, 25474},
> {42, 678, 28476}, {32, 926, 29632}, {90, 351, 31590}, {53, 635, 33655},
> {36, 936, 33696}, {63, 585, 36855}, {80, 473, 37840}, {87, 435, 37845},
> {65, 641, 41665}, {89, 482, 42898}, {54, 846, 45684}, {65, 704, 45760},
> {84, 546, 45864}, {57, 834, 47538}, {78, 624, 48672}, {59, 845, 49855},
> {63, 855, 53865}, {65, 875, 56875}, {68, 926, 62968}, {65, 983, 63895},
> {72, 936, 67392}, {75, 906, 67950}, {86, 800, 68800}}
{#[[1]],#[[2]],#[[1]]#[[2]]} & /@res
高校数学の質問スレ(医者・東大卒専用) Part438
■ このスレッドは過去ログ倉庫に格納されています
350132人目の素数さん
2024/11/30(土) 17:55:44.99ID:L4mkprla■ このスレッドは過去ログ倉庫に格納されています
ニュース
- EUのEV優遇制度案、日本車を除外 独仏が合意 [少考さん★]
- 【野球】セ・リーグCS第3戦 T 0-4 DB [10/16] DeNA3連勝日本シリーズ王手 佐野3ラン、片山7回無失点 阪神3試合連続完封負け ★2 [鉄チーズ烏★]
- 【高市総理】外食産業支援でプレミアム商品券なども検討 [ぐれ★]
- 【公明党】自公再連立「将来縛らず」 斉藤元代表、政治改革条件 [nita★]
- 【竹中平蔵】「金銭解雇ルールを作れ」 「全然仕事できないのにクビにできない」正社員に持論 ★3 [煮卵★]
- 【お詫び】NTTドコモ、緊急地震速報が配信されなかった事象について 「システム不具合」 [おっさん友の会★]
- ジャップ部下「了解いたしました」 上司「今なんつった?」 部下「よろしかったでしょうか?」 上司「てめえ!」 [592058334]
- 【ODA】日本さん、インド新幹線建設でインドに融資した1兆円ほとんど日本企業が持っていくスキームを開発 [354616885]
- スバルーナ🪿🩷🍬のお🏰
- 欧州でバカ売れのフィアットおしゃれコンパクトSUV「グランデパンダ ハイブリッド」、低価格で日本発売!!いいゾこれ [126042664]
- 中国の工作員が日本でやってそうな趣味
- アチアチ天ぷら煮込み肉うどんを作った🥩🍜夜だから卵2個!天ぷら当社比2倍!高市さん!! [457294144]