Question

Составьте программу вычисления суммы (паскаль)

Answer 1

Var
   S:real;
   N:integer;
Begin
Write('N = ');
ReadLn(N);
S:=0;
For N:= 1 to N do
    S:=S+1/(N*N);
WriteLn('S = ',S);
End.