[lmikle]

Сообщение от Bargest

Скорее всего не подключен модуль Math в uses.

1. Первый член суммы будет 1.
2. Тут лучше считать инкрементом, а то в переполнение быстро попадешь.

Код:

uses Math;

function F(A : Double; N : Integer) : Double;
var
  I : Integer
  Ai : Double;
begin
  Result := 1;
  Ai := 1;
  For I := 1 To N Do
    Begin
      Ai := Ai * A / I;
      Result := Result + Ai;
    End;
end;