Нарисовать вычислить сумму первых k слагаемых ряда : 1+1/(2^2)-1/(3^2)+1/(/(k^2) вот решение. var k,z,i: integer; s: real; begin readln(k); z: =-1; s: =1; for i: =2 to k do begin z: =-z; s: =s+z/(i*i); end; writeln('s = ',s); end.