ความคิดเห็นที่ 1 ขั้นแรก หาด้วยวิธีการนับค่ะ นับไปเรื่อบๆ ตัวไหนตรงก็ได้ตัวนั้นแหละ ไม่ได้กำหนด เวลาในการหาคำตอบหนิ จากคุณ : mint_la เขียนเมื่อ : 21 พ.ย. 54 17:08:30

ความคิดเห็นที่ 2 แต่เชื่อว่าไม่มีจำนวนดังกล่าว จากคุณ : mint_la เขียนเมื่อ : 21 พ.ย. 54 17:38:34

ความคิดเห็นที่ 3 ขออภัยครับ ขอแก้ไขโจทย์ครับ จากคุณ : TIYHz เขียนเมื่อ : 21 พ.ย. 54 17:44:41

ความคิดเห็นที่ 4 เลขที่ว่านี้ต้องขึ้นต้นด้วย 1 และ ลงท้ายด้วย 7 เช่น 1???7 เมื่อคูณสามแล้วจะได้เลขที่ลงท้ายด้วยหนึ่ง เริ่มกันที่สองหลัก คือ 17 สลับแล้วคือ 71 หมดสิทธิ์ เลขนี้ตกรอบ งั้นไปต่อกันที่เลขสามหลัก สมมติให้ x คือเลขหลักเดียว 1x7 = 100 + 10x + 7  สลับแล้วได้  7x1 = 700 + 10x + 1 มีค่าสามเท่า คือ 3(100 + 10x + 7) = 700 + 10x + 1 300 + 30x + 21 = 700 + 10x + 1 20x = 400 - 20 = 380   -->  x = 19 ใช้ไม่ได้ เพราะเรากำหนดให้ x คือเลขหลักเดียว คราวนี้ลองหลาย ๆ หลักบ้าง สมมติ y เป็นเลข n หลัก 1y7 = 10n+1 + 10y + 7  สลับแล้วได้  7y1 = 7(10n+1) + 10y + 1 มีค่าสามเท่า คือ 3(10n+1 + 10y + 7) = 7(10n+1) + 10y + 1 3(10n+1) + 30y + 21 = 7(10n+1) + 10y + 1 20y = 4(10n+1) - 20 y = 2(10n) - 1 = 19...9 คือมี 1 ตัวแรกและ 9 ตามหลักอีก n ตัว รวมเป็นเลขทั้งหมด n+1 หลัก ซึ่งขัดกับที่กำหนดทีแรก สรุปว่าไม่มีจำนวนนับตามเงื่อนไขที่ว่านี้ครับ จากคุณ : basicguy เขียนเมื่อ : 21 พ.ย. 54 17:50:13

ความคิดเห็นที่ 5 คุณ basicguy  อธิบายได้เข้าใจดีค่ะ ส่วน #2 ของมิ้นๆ ใช้เซ้นอย่างเดียวเลย ^^ จากคุณ : mint_la เขียนเมื่อ : 21 พ.ย. 54 17:58:53

ความคิดเห็นที่ 6 ก็ว่าทำไมมัน loop สมการเดิมตลอด -___-'' จากคุณ : สายลมของความว่างเปล่า เขียนเมื่อ : 21 พ.ย. 54 18:03:26

ความคิดเห็นที่ 7 555+ ผมลองเขียนโปรแกรมตาม ดู คำนวนเลขขึ้นต้นด้วยเลขหนึ่งที่เป็นไปได้ 10000000 ครั้ง ตั้งแต่เลข 1 จนถึง 18888891 ไม่มีตัวไหนที่เป็นคำตอบเลย #4  แจ่มมากครับ  :) แก้ไขเมื่อ 21 พ.ย. 54 18:27:57 จากคุณ : KenSei เขียนเมื่อ : 21 พ.ย. 54 18:03:45

ความคิดเห็นที่ 8 คิดแบบเด็กมัธยม ... 3(10+x)=10x+1 30+3x=10x+1 29=7x => 4เหลือเศษ 1 3(100+x)=10x+1 300+3x = 10x+1 299 = 7x ลองหา x ด้วยการหาร ได้ 42 เหลือเศษ 5 3(1000+x)=10x+1 2999 = 7x ลองหา x ด้วยการหาร ได้ 428 เหลือเศษ 3 3(10000+x)=10x+1 29999 = 7x ลองหา x ด้วยการหาร ได้ 4285 => เหลือเศษ 4 3(100000+x)=10x+1 299999 = 7x ลองหา x ด้วยการหาร ได้ 42857 ได้คำตอบที่ 1 !! หาต่อ ... 3(1000000+x)=10x+1 2999999 = 7x ลองหา x ด้วยการหาร ได้ 42857 เหลือเศษ 2 3(10000000+x)=10x+1 29999999 = 7x ลองหา x ด้วยการหาร ได้ 428574 เหลือเศษ 1 3(100000000+x)=10x+1 299999999 = 7x ลองหา x ด้วยการหาร ได้ 4285742 เหลือเศษ 5 เพิ่มไปอีก 3 หลัก ก็จะได้คำตอบที่ 2 .... แล้วก็วนไปเรื่อยๆ เศษจะเป็น 2,1,5,3,4 แล้วก็ได้คำตอบ แล้วก็วนใหม่... คำตอบคือ x = (3*(10^y)-1)/7 เมื่อ y เป็นจำนวนนับที่มากกว่า 0 และ หาร 5 ลงตัว จากคุณ : บัตรผ่านอัจฉริยะ เขียนเมื่อ : 21 พ.ย. 54 18:13:01 A:125.24.36.116 X: TicketID:327013

ความคิดเห็นที่ 9 โจทย์ใหม่ แย่งตอบก่อน ค่ะ ^^ 142857 ค่ะ จากคุณ : mint_la เขียนเมื่อ : 21 พ.ย. 54 18:13:31

ความคิดเห็นที่ 10 อ้าวเปลี่ยนโจทย์... แต่ก็ยังเป็นเลขที่ขึ้นต้นด้วย 1 ลงท้ายด้วย 7 อยู่ดี (คูณสามแล้วจะได้ลงท้ายด้วยหนึ่ง) สมมติ y เป็นเลข n หลัก (n เป็นจำนวนนับ) 1y7 = 10n+1 + 10y + 7  ย้ายแล้วได้  y71 = 100y + 71 มีค่าสามเท่า คือ 3(10n+1 + 10y + 7) = 100y + 71 3(10n+1) + 30y + 21 = 100y + 71 70y = 3(10n+1) - 50 7y = 3(10n) - 5 = 2...999...5 โดยมี 9 อยู่ n - 1 ตัว (ขึ้นต้นด้วย 2 ลงท้ายด้วย 5 ตรงกลางเป็น 9 อยู่ n - 1 ตัว) ซึ่งเลขตัวนี้ ต้องหาร 7 ลงตัวด้วย เพราะว่ามีค่าเท่ากับ 7y ตั้งหารกันเลยดีกว่า ตามภาพด้านล่างจะได้ 2999...5 = 7(4285) = 29995 นั่นคือ y = 4285 จะได้จำนวนนับตามเงื่อนไข คือ 1y7 = 142857 แก้ไขเมื่อ 21 พ.ย. 54 20:02:24 แก้ไขเมื่อ 21 พ.ย. 54 18:44:20 จากคุณ : basicguy เขียนเมื่อ : 21 พ.ย. 54 18:16:51

ความคิดเห็นที่ 11 ขอลองเขียนโปรแกรมบ้างนะคะ ^^        Me.TextBox1.Text = ""        Me.TextBox2.Text = ""        Dim i As UInteger = 17        While Me.TextBox1.Text = ""            Me.TextBox2.Text = i.ToString            Dim bit As Integer = Me.TextBox2.Text.Length            If Me.TextBox2.Text.Substring(0, 1) = "1" And (i - Math.Pow(10, bit - 1)) * 10 + 1 = 3 * i Then                Me.TextBox1.Text += i.ToString                Me.TextBox1.Text += vbCrLf                Me.Refresh()            End If            If Me.TextBox2.Text.Substring(0, 1) <> "1" Then                i = Math.Pow(10, bit) + 7            End If            i += 10        End While แก้ไขเมื่อ 21 พ.ย. 54 18:22:30 จากคุณ : mint_la เขียนเมื่อ : 21 พ.ย. 54 18:17:04

ความคิดเห็นที่ 12 ผิดอ่ะ ขอแก้ใหม่ ตอบว่า x = (3*(10^y)-1)/7 y=5+6z เมื่อ z เป็นจำนวนเต็มบวก หรือ 0 จากคุณ : บัตรผ่านอัจฉริยะ เขียนเมื่อ : 21 พ.ย. 54 18:18:02 A:125.24.36.116 X: TicketID:327013

ความคิดเห็นที่ 13 ^ จากคุณ : mint_la เขียนเมื่อ : 21 พ.ย. 54 18:18:47

ความคิดเห็นที่ 14 คิดเพลินจนลืมไปเลย โจทย์ถาม "จำนวนนับที่น้อยที่สุด" 555+ จากคุณ : บัตรผ่านอัจฉริยะ เขียนเมื่อ : 21 พ.ย. 54 18:22:22 A:125.24.36.116 X: TicketID:327013

ความคิดเห็นที่ 15 ดีใจจัง ได้ใช้หัวสมองบ้างแล้ว หลังจากนั่งๆนอนๆมาทั้งวัน  มหาลัยยังไม่เปิดเลย  #_# จากคุณ : KenSei เขียนเมื่อ : 21 พ.ย. 54 18:25:05

ความคิดเห็นที่ 16 #15 เรียนวิศวะฯคอมหรือเปล่าคะ ช่วยคอมเม้นโค้ดให้หน่อยค่ะ พอดีเพิ่งเริ่มหัดเขียนโปรแกรม จากคุณ : mint_la เขียนเมื่อ : 21 พ.ย. 54 18:27:00

ความคิดเห็นที่ 17 ถ้าสะดวก แอด MSN มาดีกว่าคร้าบ เผื่อจะได้แลกเปลี่ยนความรู้กันบาง VB ผมก็งูๆปลาๆ ผมเรียนวิศวะฯ คอมพิวเตอร์ พระจอมเกล้าลาดกระบังคร้าบ ชื่อเมลล์ ฮอตเมลล์ แก้ไขเมื่อ 21 พ.ย. 54 18:49:20 จากคุณ : KenSei เขียนเมื่อ : 21 พ.ย. 54 18:31:10

ความคิดเห็นที่ 18 ยาวหน่อยนะครับ เพราะทดในนี้หมดเลย [][][][][][][][]...[] n ช่อง [1][][][][][][][]...[] --> 3([1][][][][][][][]...[]) 3([1][][][][][][][]...[x]) = [] [][][][][][][]...[x][1] จะได้ว่า เลขเดียวที่คุณ 3 แล้วลงท้ายด้วย 1 คือ 7 [1][][][][][][][]...[][7]) *3 = [] [][][][][][][]...[7][1] 3x(เลขแถวบน) + ทด = 10y(ทดหลักต่อไป) + a (เลขแสดงแถวล่าง) 3x + 2 = 10y + 7 3x = 10y+5 (5,1) check => 157 *3 = 571 false [1][][][][][][][]...[][5][7]) *3 = [] [][][][][][]...[5][7][1] ทด 1 3x + 1 = 10y + 5 3x = 10y+4 (8,2) check => 1857 *3 = 8571 [false] [1][][][][][][][]...[8][5][7]) *3 = [] [][][][][][]...[8][5][7][1] ทด 2 3x + 2 = 10y + 8 3x = 10y+6 (12,3) (2,0) check 12857 * 3 = 28571 [false] [1][][][][][][]...[][2][8][5][7]) *3 = [] [][][][][]...[][2][8][5][7][1] ทด 2 3x + 0 = 10y + 2 3x = 10y+2 (4,1) check  142857 *3 = 428571 [true] [1][][][][][][]...[4][2][8][5][7]) *3 = [] [][][][][]...[4][2][8][5][7][1] ตอบ 142857 --- ป.ล. พึ่งเห็นว่าข้างบนเขาตอบกันไปหมดแล้ว (-__-"") แก้ไขเมื่อ 21 พ.ย. 54 18:41:01 จากคุณ : สายลมของความว่างเปล่า เขียนเมื่อ : 21 พ.ย. 54 18:36:41

ความคิดเห็นที่ 19 ขอบคุณทุกท่านครับ ได้แนวคิดหลากหลายดีครับ จากคุณ : TIYHz เขียนเมื่อ : 21 พ.ย. 54 20:31:09

ความคิดเห็นที่ 20 ..........ยิ้ม.......... จากคุณ : คนพเนจร หมอนไม่มี เขียนเมื่อ : 21 พ.ย. 54 21:13:36

ความคิดเห็นที่ 21 ไหนอ่ะเมล์ จากคุณ : mint_la เขียนเมื่อ : 21 พ.ย. 54 22:14:55

ความคิดเห็นที่ 22 142857+142857=285714 285714+142857=428571 428571+142857=571428 571428+142857=714285 714285+142857=857142 จากคุณ : หนุ่ม (Noum NaMon) เขียนเมื่อ : 22 พ.ย. 54 11:50:53

ความคิดเห็นที่ 23 อันนี้ผมลองเขียนด้วย Mathematica ง่ายๆดูครับ swapInt[tmp__Integer] := FromDigits@RotateLeft@IntegerDigits@tmp เจ้า swapInt นี้จะทำการเอาตัวเลขหน้าสุดไปต่อท้ายตัวเลขหลักสุดท้ายครับ ส่วนอันนี้ก็หาว่าตัวไหนตรงตามเงื่อนไข อันนี้ไม่ได้สนใจว่าต้องขึ้นด้วยหนึ่งครับ เล่นแบบคนขี้เกียจโดยใส่ตั้งแต่หนึ่งถึงล้านครับ :) Catch[If[swapInt@# == 3*#, Throw[#]] & /@ Range[1, 1000000, 1]] คำตอบที่ผมได้คือ 142857 ครับ จากคุณ : Santi เขียนเมื่อ : 22 พ.ย. 54 20:50:49 A:58.11.71.103 X: TicketID:044871

ความคิดเห็นที่ 24 ส่วนอันนี้ก็ สำหรับสลับตัวแรกกับตัวสุดท้ายครับ swapInt1[tmp_Integer] := FromDigits@ ReplacePart[IntegerDigits[tmp], {1 -> Last@IntegerDigits[tmp], Length@IntegerDigits[tmp] -> First@IntegerDigits[tmp]}] ทดลองหาเหมือนเดิม ตั้งแต่หนึ่งถึงหนึ่งล้าน Catch[If[swapInt1@# == 3*#, Throw[#]] & /@ Range[1, 1000000, 1]] ปรากฏว่าไม่มี ตัวเลข ที่ตรงตามเงื่อนไขที่ต้องการครับ :) จากคุณ : Santi เขียนเมื่อ : 22 พ.ย. 54 20:59:58 A:58.11.71.103 X: TicketID:044871