Дано натуральное N. Найдите сумму чисел 1/3+1/5+1/7+...+1/(2х+1)

Question

Дано натуральное N. Найдите сумму чисел 1/3+1/5+1/7+...+1/(2х+1)

Comments

Прога нужна? На каком языке?

Answer 1

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(Range(1,ReadInteger).Select(i->1/(2*i+1)).Sum)
end.

Пример
10
1.1808745777786

Answer 2

Var    n, i: word;   
sum: real;
begin   
write ('n = ');    
readln (n);   
sum := 0;   
for i := 1 to n do       
sum := sum + 1/(2*i+1);   
writeln (sum:6:5);
end.

Comments

Натуральное N, то есть не до нуля, а до 1

---

for i := n downto 1 do ?

---

Да

---

Иначе лишняя единица прибавляется в конце цикла