 |
ผมลองเขียนด้วย Mathematica ง่ายๆ ตามนี้ครับ
(* ตั้งแต่ 3 - 10 หลัก แบบไม่ซ้ำ *)
For[i = 3, i <= 10, i++,
Print["==", i "=="];
num = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9};
test = Developer`ToPackedArray@
Select[Permutations[num, {i}], #[[1]] != 0 &];
For[j = 1, j <= Length@test, j++,
If[FractionalPart@N@Sqrt@FromDigits@test[[j]] == 0 &&
FractionalPart@N@Sqrt@FromDigits@Reverse@test[[j]] == 0,
Print[FromDigits@test[[j]]]]
]
]
==3 ==
169
961
==4 ==
1089
9801
==5 ==
12769
96721
==6 ==
==7 ==
1238769
9678321
==8 ==
==9 ==
==10==
จำนวนหลักที่ไม่มีคำตอบคือ 6,8,9,10
| จากคุณ |
:
Santi
|
| เขียนเมื่อ |
:
24 ธ.ค. 54 23:14:21
A:223.204.232.158 X: TicketID:044871
|
|
|
|
|
ในเมื่อหก หลักไม่ได้ แล้ว กี่หลักไม่ได้อีก
คุณ เกียรตินำ เก่งมาก เขียนโปรแกรมยังไงครับ ผมนึกไม่ออก
