Question

求满足1+1/2^2+1/3^2+...+1/n^2的最小正整数n，要求设计算法画出其程序框图，编写程序

Answer 1

这个问题好像有点不全
如果只是求1+1/2^2+1/3^2+...+1/n^2这个的话
Function sum(ByVal n As Integer) As Single
Dim i As Integer
sum = 0
For i = 1 To n
sum = sum + 1 / i ^ 2
Next i
End Function
Private Sub Form_Load()
Dim n As Integer
n = Fix(Val(InputBox("请输入你要求和的项数:")))
MsgBox "1+...+1/" & n & "^2=" & sum(n)
End Sub

以上就是程序，是Basic，原理不变可以变换为C或者C++

要求满足的最小正整数存在应该要1+1/2^2+1/3^2+...+1/n^2小于某个特定数值时，才能判断出最小正整数