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

Вопрос школьника по предмету Информатика

Дано натуральное N. Найдите сумму чисел 1/3+1/5+1/7+…+1/(2х+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.