Question

Пожалуйста решите задачу в паскале через цикл
По данному числу n вычислите сумму 1+1/2^2+1/3^2+...+1/n^2.

Answer 1

Program dfsdf;var n,i: integer;    s,a: real;begin  Readln(n);  s:= 0;  for i:= 2 to n do    a:= 1 + ((1 / n) * (1 / n));    s:= s + a;  Writeln(s)end.