Нужно вычислить число пи через цикл While по ряду ЭйлераПодскажите в чем...

Question

Нужно вычислить число пи через цикл While по ряду ЭйлераПодскажите в чем ошибка?срочно,плиз.VAR n,i,s,p:real;beginn:=1000;s:=0;I:=0;while I<=n dobegini:=I+1;S:=1+s/sqr(i);end;p:=sqrt(6*S);writeln(p:12:10);end.

Answer 1

const

 n = 1000;

var

 i: Integer;

 s: Real;

begin

s := 1;

   i := 2;

   while i

     s := s + 1 / (i * i);

     i := i + 1;

   end;

   Writeln ('Pi ^ 2 / 6 = ' + FloatToStr (s));

end;

Ряд Эйлера: 1 + 1 / 2^2 + 1 / 3^2 + ... = Pi ^ 2 / 6

Результат работы программы: 1.64... не очень точно, но можно увеличить n