2012年1月19日 星期四

因數

已知兩個整數n和d，請你找出n這個值，會有多少個因數可以被d整除。

輸入說明：

每組輸入包含兩個以空白隔開的數字n及d，其n ( 0 < n < 1000000 )，而d ( 2 ≤ d < 1000 )。

輸出說明：

對於每組測試資料，輸出n這個值，會有多少個因數可以被d整除。

輸入範例：

36 2

64 8

輸出範例：

6

4

張貼者： 於

5 則留言:

  1. 匿名2012年1月19日 上午10:19

    Private Sub Form_Load()
    Me.Hide
    Open App.Path & "\in.txt" For Input As #1
    Open App.Path & "\out.txt" For Output As #2
    Do
    Input #1, x, y
    For i = 1 To x
    If x Mod i = 0 Then
    If i Mod y = 0 Then ans = ans + 1
    End If
    Next
    Print #2, ans
    ans = 0
    Loop While Not EOF(1)
    Close
    Close
    End
    End Sub

    兩行之間若有空一行，則程式就會錯誤了，會影響到。
    輸入:
    36 2
    64 8

    輸出:
    6
    4

    回覆刪除
  2. 熊掌2012年1月24日 晚上11:42

    小冰好，
    程式正確。
    從舊題目中，選題出來時，如果覺得舊題目不正確，可以更改成新題目，將舊題目另外放在「舊題目參考」中。
    另外，因為是網頁的方式，有些空白是不準確的，那倒是沒關係的。

    回覆刪除
  3. 匿名2012年1月26日 中午12:27

    Private Sub Form_Load()
    Me.Hide
    Open App.Path & "\in.txt" For Input As #1
    Open App.Path & "\out.txt" For Output As #2
    Do
    Input #1, x, y
    ans = 0
    For i = 1 To x
    If x Mod i = 0 Then
    If i Mod y = 0 Then ans = ans + 1
    End If
    Next i
    Print #2, ans
    Loop While Not EOF(1)
    Close #2
    Close #1
    End
    End Sub

    回覆刪除
  4. 熊掌2012年2月7日 下午3:08

    晟晟好，
    程式正確。

    你和小冰用的方式都很直覺。
    先求第一個的因數，再看是不是能被第二個整除。

    再想一想，有沒有更「數學」的解法呢?

    回覆刪除
  5. 匿名2012年2月15日 清晨7:52

    Private Sub Form_Load()
    Open App.Path & "\in.txt" For Input As #1
    Open App.Path & "\out.txt" For Output As #2
    Do
    Input #1, x, y
    For i = 1 To x
    For j = 1 To x
    If i * j = x Then
    If j Mod y = 0 Then ans = ans + 1
    End If
    Next j
    Next i
    Print #2, ans
    ans = 0
    Loop While Not EOF(1)
    Close #2
    Close #1
    End
    End Sub

    回覆刪除

訂閱： 張貼留言 (Atom)