(цикл while) дано целое число n(> 0).найти сумму 1+1/4+1/9++1/n^2

Dasha142nikolaeva Dasha142nikolaeva    3   03.09.2019 02:20    0

Ответы
Danil111112 Danil111112  06.10.2020 13:44
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика