Question

Помогите пожалуйста!!
Решить задачу с использованием процедур. Указать выделенные подзадачи, решаемые процедурами. Дан числовой ряд и некоторое число e. Найти сумму тех членов ряда, модуль которых больше или равен заданному e. Общий член ряда имеет вид:
a(n-нижний индекс)=n!/n^n

Answer 1

var
    i, n: integer;
    a, s, e: real;

function Factorial(n: integer): longint;
var
    f, i: longint;
begin
    f := 1;
    for i := 1 to n do
        f := f * i;
    Factorial := f;
end;

function Power(x: real; n: integer): real;
var
    i: integer;
    p: real;
begin
    p := 1;
    for i := 1 to n do
        p := p * x;
    Power := p;
end;

begin
    readln(e, n);
    
    s := 0;
    for i := 1 to n do
    begin
        a := Factorial(n) / Power(n, n);
        if abs(a) < e then
            s := s + a;
    end;
    
    writeln(s);
end.