3 задача. Из условия задачи видно, что дана знакопеременная функция вида (-1)^(n+1)*(n^2)/((n+1)^3). Так как последовательность бесконечная, то мы должны ввести какое-либо число n.
program calc;
var
n,i: integer;
s: real;
begin
s:=0;
readln(n);
for i:=1 to n do
if i/2=round(i/2) then s:=s-1*sqr(i)/(sqr(i)*i) else s:=s+sqr(i)/(sqr(i)*i);
writeln('сумма =',s:0:3);
end.