Question

Срочно
написать программу на паскаль

Answer 1

var

 sum,n:real;

begin

 sum:=0;

 n:=2;

 while n<=128 do

   begin

     sum:=sum+1/sqr(n);

     n:=n+2;

   end;

 writeln(sum);

end.