Question

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

Answer 1

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.

Answer 2

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

Answer 3

for i := n downto 1 do ?