Вычислить значение суммы 8 членов следующего ряда: 19+k/(2+k)+k/(4+k)+k/(6+k)…. K>0...

Question

Вычислить значение суммы 8 членов следующего ряда: 19+k/(2+k)+k/(4+k)+k/(6+k)…. K>0 вводятся с клавиатуры

Answer 1

Pascal:
var
  s, k: real;
  i: byte;
begin
  s := 19;
  readln(k);
  for i := 1 to 8 do
    s := s + k / (i * 2 + k);
  writeln(s);
end.