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

Question

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

Answer 1

Program pr1;
const n=8;
function factorial(n:integer):integer;
begin
if (n<=1) then factorial:=1<br>else factorial:=n*factorial(n-1);
end;
begin
WriteLn('n!=',factorial(n));
end.

Comments

А почему там const=8?