2011年10月21日 星期五

97正式 Problem6：因數

Problem6：因數(11%)

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

輸入說明：

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

輸出說明：

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

輸入範例：

36 2

64 8

輸出範例：

6

4

張貼者： 於
標籤： ,

4 則留言:

  1. 匿名2011年10月27日 上午11:00

    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 While Not EOF(1)
    Input #1, n, d

    ans = 0
    For i = 1 To n
    If n Mod i = 0 And i Mod d = 0 Then ans = ans + 1
    Next i

    Print #2, ans

    Loop
    Close #2
    Close #1
    End
    End Sub

    回覆刪除
  2. lewis500932011年10月27日 上午11:46

    Sub main()
    Open App.Path & "\in.txt" For Input As #1
    Open App.Path & "\out.txt" For Output As #2
    Do Until EOF(1)
    Input #1, a, b
    For i = 1 To a
    If a Mod i = 0 Then
    If i Mod b = 0 Then x = x + 1
    End If
    Next
    Print #2, Trim(x)
    x = 0
    Loop
    End Sub

    回覆刪除
  3. Arro2011年10月27日 下午5:15

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

    回覆刪除
  4. 熊掌2011年11月3日 凌晨12:16

    佑, arro，lewis50093 好，
    三個程式，arro的程式會比較好。
    但是，三個都正確。

    回覆刪除

訂閱： 張貼留言 (Atom)