na summu na paskale

[molli]

дано действительное число а, натуральное число n; Вычислить 1/a+1/a(a+1)+...+1/(a(a+1)../(a+n)) на паскале

[VIK_aka_TOR]

организуете ввод А и N... и необходимый вам вывод...

elem := 1/a;
s := elem;
for i:=1 to n do
  begin
    elem := elem / (a + i);
    s := s + elem;
  end;