[Timon]

Дано действительное x. Последовательность А1,А2.... по следующему закону:

Аn = x/ (корень n)*(n + 2)!

Получить А1+...+Аk, где k - наименьшее целое число, удовлетворяющее двум условиям k > 10 и |Ak+1| < (10 в степени -5).

Помогите пожалуйста.

[lmikle]

Как-то так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

uses   Math;   function Fact(N : Integer) : Integer; var   I : Integer; begin   Result := 1;   For I := 2 To N Do result := Result * I; end;   function An(X : Double; N : Integer) : Double; begin   Result := X /(sqrt(n)*Fact(n+2)); end;   function Sum(X : Double) : Double; var   I : Integer; begin   Result := 0;   I := 1;   While (I <= 10) Or (An(X,I+1) >= power(10,-5)) Do     Begin       Result := Result + An(X,I);       Inc(I);     End; end;

Не проверял.
Вообще, там можно оптимизировать расчет, но вопрос - надо ли?

[Timon]

большое спасибо