Цитата:
Сообщение от KatyP!ATD
Написать программу вычисления выражения:
|
Написал.
Код:
VAR
i,N:Integer;
S,a:Real;
BEGIN
S:=0;
Write('N= ');
Readln(N);
a:=1;
S:=a;
For i:=2 to N do
begin
a:=-a*(i-1)/i;
S:=S+a;
end;
Writeln('S= ',S:7:5,' Ln(2)= ',Ln(2):7:5);
Readln;
END.
Ln(2) там для сравнения, поскольку при возрастании N ряд к нему сходится.