Александр
5 год назад
Составьте программу вычисления суммы (паскаль)
ОТВЕТЫ
Taisiya
Oct 24, 2020
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.
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.
803
Смежные вопросы:
