close
標題:
10000以內的質數有幾個
發問:
請問10000以內的質數有幾個 不用一個一個列出來 只要告訴我有幾個就可以了 謝謝你喔 更新: 如果沒找到有幾個 恕我直說:廢話不用多說 只要跟我說有幾個就可以ㄌ
最佳解答:
共1229個！利用質數表算出?http://mathmind.math.ntnu.edu.tw/modules/magazine/article.php?articleid=61-10000的質數都列出來了！http://www.mathland.idv.tw/experiment/primelist.htm或者看?http://mathmind.math.ntnu.edu.tw/modules/magazine/article.php?articleid=61-10000的質數都列出來了！
其他解答:
我用篩除法寫了個 vb 程式運算, 確實是 1229 個沒錯。 vb程式如下: Dim a(5000) For i = 1 To 5000 a(i) = i * 2 - 1 Next For j = 2 To 5000 If a(j) > 0 Then t = a(j) For k = t + j To 5000 Step t a(k) = 0 Next End If Next s = 0 u = 2 Print 1; For l = 1 To 5000 If a(l) > 0 Then s = s + 1: u = 0: Print a(l); If s Mod 30 = 0 And u = 0 Then u = 1: v = v + 1: Print: Print v; Next Print: Print: Print: Print s
10000以內的質數有幾個
發問:
請問10000以內的質數有幾個 不用一個一個列出來 只要告訴我有幾個就可以了 謝謝你喔 更新: 如果沒找到有幾個 恕我直說:廢話不用多說 只要跟我說有幾個就可以ㄌ
最佳解答:
共1229個！利用質數表算出?http://mathmind.math.ntnu.edu.tw/modules/magazine/article.php?articleid=61-10000的質數都列出來了！http://www.mathland.idv.tw/experiment/primelist.htm或者看?http://mathmind.math.ntnu.edu.tw/modules/magazine/article.php?articleid=61-10000的質數都列出來了！
其他解答:
我用篩除法寫了個 vb 程式運算, 確實是 1229 個沒錯。 vb程式如下: Dim a(5000) For i = 1 To 5000 a(i) = i * 2 - 1 Next For j = 2 To 5000 If a(j) > 0 Then t = a(j) For k = t + j To 5000 Step t a(k) = 0 Next End If Next s = 0 u = 2 Print 1; For l = 1 To 5000 If a(l) > 0 Then s = s + 1: u = 0: Print a(l); If s Mod 30 = 0 And u = 0 Then u = 1: v = v + 1: Print: Print v; Next Print: Print: Print: Print s
此文章來自奇摩知識+如有不便請留言告知
20C18AF99341980A
文章標籤
全站熱搜
留言列表
