Написать программу, которая вычисляет сумму первых N членов ряда 1+1/4+1/9+1/16+... Входные/выходные данные располагаются в файлах

[kukobch]

Написать программу, которая вычисляет сумму первых N членов ряда 1+1/4+1/9+1/16+... Исходные данные (N – количество суммируемых членов ряда) вводятся из файла Input.txt. Результаты работы программы добавляются в файл Out.txt.

[NikiToZz_]

Не компилировал!

{$mode delphi}
var t,f:text;
     n,i:integer;
     sum:double;
begin
    assign(t,"Input.txt");
    assign(f,"Out.txt");
    reset(t);
    rewrite(f);
    read(t,n);
    for i:=1 to n do 
         sum:=sum+1/sqr(i);
    write(f,sum);
    close(t);
    close(f);
end.

[Аватар]

sum+i*i совсем не sum+1/i/i

[Алексей_2012]

не вижу логики, можно полное задание?

возможно сделать рекурсией, но

1. 1
2. 4
3.9 (2^3)+1=9
4. 16 (2^4)
5. логично предположить что тут чередование (2^5)+1=33
6. 2^6=64
...

Есть полное задание?

[Plague]

  s:=1;
  sum:=1;
  for i:=2 to n do
    begin
      s:=s+2*i-1;
      sum:=sum+1/s;
    end;
  Write(sum);

1^2 = 1
2^2 = 1+3
3^2 = 1+3+5
4^2 = 1+3+5+7
...