Напишите программу вычисления выражения:s=1!+2!+3!+...+n!Здесь n! - факториал числа n....

Question

Напишите программу вычисления выражения:s=1!+2!+3!+...+n!Здесь n! - факториал числа n. n!=1×2×...×(n-1)× n.Используйте функцию вычисления факториала.СПАСИБО.​

Answer 1

var

   n : integer;

   S : decimal;

   

function fac(n : integer) : decimal;

begin

   result := 1;

   for var i := 1 to n do result := result * i;

end;

begin

   write('введите n = ');

   readln(n);

   for var i := 1 to n do S := S+fac(i);

   writeln('S=', S);

end.