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.