木曜日は娘が頭痛いと体調不良。
金曜日の朝は息子も38℃台の熱があるというので２人とも学校を休ませました。
娘の方は昼にはピンピン。
息子の方は夕方になっても熱が下がらず病院で診てもらいました。
今だと、インフルエンザ、コロナの可能性も疑われますが、結局風邪でした。
今日は部活仲間とカラオケに行く予定でしたが、寝てます。
期末テストの英語の追試も受けられず赤点確定。
ということで学年末テストでリーチがかかりました。
ところで、中数２月号表紙問題はなかなか難しかったです
絞り込みで、A4かA6，C3かC8まではすぐにわかりましたがここから先どう絞り込んだらいいかが分からず、
プログラミングへ変更。
結果は以下の通り。
(34+68）×（68-34)=3468に確かになります。
ちなみにVBAのプログラムは以下の通りやってみました。
Sub SolveABCD()
Dim A As Integer, B As Integer
Dim C As Integer, D As Integer
Dim AB As Integer, CD As Integer
Dim ABCD As Long
Dim CD2 As Long, AB2 As Long
Dim resultRow As Integer
' 結果の書き込み行
resultRow = 2
Cells(1, 1).Value = "AB"
Cells(1, 2).Value = "CD"
Cells(1, 3).Value = "A"
Cells(1, 4).Value = "B"
Cells(1, 5).Value = "C"
Cells(1, 6).Value = "D"
' A, B, C, D のすべての組み合わせをループ
For A = 1 To 9
For B = 1 To 9
If B <> A Then
AB = 10 * A + B
For C = 1 To 9
If C <> A And C <> B Then
For D = 1 To 9
If D <> A And D <> B And D <> C Then
CD = 10 * C + D
If CD > AB Then
AB2 = AB ^ 2
CD2 = CD ^ 2
ABCD = 100 * AB + CD
' 条件をチェック
If CD2 - AB2 = ABCD Then
' 結果をシートに出力
Cells(resultRow, 1).Value = AB
Cells(resultRow, 2).Value = CD
Cells(resultRow, 3).Value = A
Cells(resultRow, 4).Value = B
Cells(resultRow, 5).Value = C
Cells(resultRow, 6).Value = D
resultRow = resultRow + 1
End If
End If
End If
Next D
End If
Next C
End If
Next B
Next A
MsgBox "探索が完了しました！"
End Sub
日本最大級の学習塾検索サイト「塾選」の口コミは塾選びに本当に役立つの？
ブンブンどりむの口コミは？読解力・思考力・算数力がつくって本当なの？
ワンダーボックスの口コミは？遊びながら算数力がつくって本当なの？
