Question

Дано натуральное число n. Вычислить сумму n членов последовательности
(1/2), (3/4), (5/6), (7/8) ....

Answer 1

Program n1;
var n,i: integer;
sum: real;
begin
readln(n);
i:=1;
repeat
sum:=sum+i/(i+1);
i:=i+2;
until i>2*n;
write(sum);
end.