По данному числу n вычислите сумму 2(1-1/3+1/5-1/7+...+(-1)n/(2n+1)). Формат входных...

Question

По данному числу n вычислите сумму 2(1-1/3+1/5-1/7+...+(-1)n/(2n+1)). Формат входных данных: Вводится одно число n, не превосходящее 100000. Формат выходных данных: Необходимо вывести значение выражения

Answer 1

Program Zadacha1;
Var n: LongInt;
i: Integer;
r, a: Real;
Begin
Write('n = ');
ReadLn(n);
If n > 100000 Then
WriteLn('Ошибка!')
Else
Begin
r := 0;
For i := 0 To n Do
Begin
r := r + a; 
a := (1 - (i and 1) shl 1) * (1 / Abs(i * 2 + 1));
End;
WriteLn('Результат: ', r);
End;
ReadLn;
End.