[5nizza77]

Помогите, хотябы начало алгоритма!!!!!!

[lmikle]

тебе надо написать функцию вычисления i-го члена ряда. Дальше в цикле While a(i) > E Do выичисляешь сумму.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

function a(n : Integer) : Extended; begin   // вычисление i-го члена ряда - сам напишешь, там просто. end;   function Ryad(E : Extended) : Extended; var   I : Integer; begin   Result := 0;   I := 1;   While a(I) > E Do     begin       Result := Result + a(I);       Inc(I);     end; end;