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

Question

Информатика

Лукаря

17 марта, 01:19

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

+1

Ответы (1)

Знаете ответ на вопрос?

Татиана · 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.