2012年11月25日 星期日

VB101正副選手考3_暴力証明題


有個數學証明題，是要証明存在一個3的正整數次方，其十進位展開末3位數為001。
証明的方式當然很數學，這裡請用電腦程式的方式，找出到底是3的n次方的展開末3位數為001。
n的最小值是多少?
張貼者： 於

1 則留言:

  1. 匿名2012年11月25日 下午1:57

    Private Sub Form_Load()
    Me.Hide
    Open App.Path & "\out.txt" For Output As #1
    k = 1
    Do
    i = i + 1
    k = Val(Right(k * 3, 3))
    If k = 1 Then Print #1, i: Exit Do
    Loop
    Close #1
    End
    End Sub

    回覆刪除

訂閱： 張貼留言 (Atom)