Найти сумму чисел ряда

Question

Найти сумму чисел ряда

---

Answer 1

Var i: longint;
    n: integer;
    s: real;
begin
  write('число членов ряда (от 2 до 15):  ');
  readln(n);
  if n>15 then n:=15;
  for i:=1 to n do
  s:=s+power(2,2*i-1)/(2*i-1);
  writeln('сумма ряда (n = ',n,')  = ',s:12:4);
end.