Question

计算圆周率pascal

Description

根据公式pai^2/6=1+1/2^2+1/3^2+1/4^2+……1/n^2，计算圆周率pai的值

pai^2/6的含义：pai的平方再除以6.

Input

n

Output

pai的值。保留六位小数。

Sample Input

1000

Sample Output

3.140638

这个是要求 谢谢了 可以的给10分
晕死 是用pascal语言解答问题啊

Answer 1

var i,n:integer;
s,pi:real;
begin
readln(n);
for i:=1 to n do s:=s+1/(i*i);
pi:=sqrt(s*6);
writeln(pi:0:6);
end.

给分啊。

Answer 2

3.141592624

追问

用pascal解答啊

Answer 3

program getpi;
uses math;
begin
writeln(pi);
end.
math库里面有pi，不信可以试一下