Ответы
Ответ дал:
0
Var
N,i:integer;
S:real;
Begin
Write('N = ');
ReadLn(N);
S:=0;
i:=1;
While i <= N do
Begin
S:=S+1/(i*i);
i:=i+1
End;
WriteLn('S = ',S);
End.
N,i:integer;
S:real;
Begin
Write('N = ');
ReadLn(N);
S:=0;
i:=1;
While i <= N do
Begin
S:=S+1/(i*i);
i:=i+1
End;
WriteLn('S = ',S);
End.
Похожие вопросы
2 года назад
2 года назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад