Напишите программку для суммы числового ряда. Дан числовой ряд и малая

т9, что поделать) Самому забавно

Вы мне поможете?

ОК

Да

//Pascal
//Функция факториала
function fact(n: integer): real;
begin
  if (n = 0) then fact := 1
  else fact := n * fact(n - 1);
end;

//Main
var
  a: real;
  x, lim: integer;
begin
  write('Введите x: '); readln(x);
  lim := x; a := 0;
  for x := 1 to lim do
  begin
    //a := a + (power(2, x) * fact(x))/(power(x, x));
    a := a + ((exp(ln(2) * x)) * fact(x))/(exp(ln(X) * x));    
  end;
  writeln('a = ', a:5:3);
  readln;
end.