Question

РЕшить задачу через FOR и WHILE

Answer 1

var
  s: real;
  n, x: integer;
begin
  readln(n);
  x := 1;
  while (x <= n) do
  begin
    s := s + 1 / sqr(2 * x);
    x := x + 1;
  end;
  writeln(s);
  
  s := 0;
  for x := 1 to n do
    s := s + 1 / sqr(2 * x);
  writeln(s);
end.