 |
ถ้าเฉพาะตัวท้ายเฉยๆ 500 ตัว และถ้านับข้างในด้วยก็ 1060 ตัวครับ
อันนี้เป็น Mathematica codeสั้นๆ ครับที่ใช้ในการหาคำตอบนี้ครับ 1) หาเลขศูนย์ทั้งหมด ด้วยการเขียนกระจายตัวเลขเป็น list ของตัวเลขแล้วนับเอาว่ามีศูนย์อยู่ใน list กี่ตัว
Count[IntegerDigits[2007!], 0] 1060
2) หาเลขศูนย์ที่อยู่ด้านท้าย ด้วยการหาร 2007! ด้วย 10^n ไปเรื่อยๆจนกว่าจะได้เศษไม่เท่ากับศูนย์ ดังนั้นคำตอบที่ต้องการก็คือ n-1 ครับ
Catch[Do[If[Mod[2007!, 10^i] != 0, Throw[i]], {i, 1, 1000}]] 501
จากคุณ |
:
Santi
|
เขียนเมื่อ |
:
3 มี.ค. 55 20:11:03
A:58.8.11.163 X: TicketID:044871
|
|
|
|
 |