По данному натуральному значению n вычислите

1+1/3+1/5+1/7 + ... + 1/2n+1

на вход программе подаётся натуральное число n<100000

Question

Федот

15 августа, 20:04

+4

Ответы (1)

Знаете ответ?

Викула · Answer 1

Var N:longint;

S:real;

Begin

Write ('N = ') ; Read (N) ;

S:=0;

For N: = 0 to N do

S:=S+1 / (2*N+1) ;

Write ('S = ', S) ;

End.

По данному натуральному значению n вычислите1+1/3+1/5+1/7 + ... + 1/2n+1на вход программе подаётся натуральное число n<100000