Итерационные циклические алгоритмы.

[Vladislav125]

Даны числовой ряд и некоторое число E. Найти сумму тех членов ряда, модуль которых больше или раве заданному E.Общий член ряда имеете вид на рис 1:
Пример программы:

Var E,A,Am,Sm:real;
       N,i:integer;
BEGIN
Writeln('Введите количество повторений числового ряда');
Readln(N);//5
Writeln('Введите число E');
Readln(E);//0.035
Writeln();
Sm:=0;
i:=1;
repeat
                A:=Power(-1,i-1)/Power(i,i);
                If Abs(A)>=E then
                                 begin
                                 Am:=A;
                                 Sm:=Sm+Am;
                                 //Writeln(Sm);
                                 end;
                i:=i+1;
until i=N;
Writeln(Sm);
END.