Решение задачи на Паскаль, оператор While. Прошу, помогите, срочно прямо сейчас!!

Question

Решение задачи на Паскаль, оператор While. Прошу, помогите, срочно прямо сейчас!!

---

Answer 1

Попробуйте такой вариант:
programm one
var n, i: integer;
S: real;
begin
readln(n);
while(i != n)
begin
s := s + 1/((2*n+1)*(2*n+1));
i = i+1;
end;
writeln(s);
readln();
end.