Пожалуйста решите задачу в паскале через цикл По данному числу n вычислите сумму

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.