Вычислить значение переменной у, при n: у=1/1^2+1/2^2+1/3^2+...+1/n^2. Написать решение...

Question

Вычислить значение переменной у, при n: у=1/1^2+1/2^2+1/3^2+...+1/n^2.

Написать решение на языке паскаль.

Answer 1

program znachy2;
uses crt;
var n,l:integer;
k,y:real;
begin
y:=0;
readln(l);
for n:=1 to l do
begin
k:=1/sqr(n);
y:=k+y;
end;
writeln(y)
end.