Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Дано число n. Составить программу нахождения ряда чисел 1+1/4+1/9+1/16+...+1/n в квадрате.

Ответ оставил Гость

Var n,i:integer;
s:real;
begin
writeln(n=);
readln(n);
s:=0;
for i :=1 to n do 
s:=s+1/sqr(i);
writeln(s=,s);
readln;
end.