По заданному целому числу n вычислить сумму всех членов ряда до n-го члена включительно: 1 + 1/22 + 1/32 + 1/42 + … + 1/n2. Для самопроверки: точная сумма бесконечного ряда равна (π^2)/6.

var

sum,i,n: integer;

begin

sum=1;

for i:=2 to n do

sum=sum+(i*10+2);

writeln(sum);

end.

В качестве n введи большое число. Я ввел 10000

sum вышла = 1.86661169332018

На калькуляторе 3.14*3.14/6 =1.64

+- сошлось