Написать программу для вычисления выражения: s=1!+2!+3!+...+15!
Answers & Comments
annaaaaaaa123456789
Program pr1; const n=8; function factorial(n:integer):integer; begin if (n<=1) then factorial:=1 else factorial:=n*factorial(n-1); end; begin WriteLn('n!=',factorial(n)); end.
Answers & Comments
const n=8;
function factorial(n:integer):integer;
begin
if (n<=1) then factorial:=1
else factorial:=n*factorial(n-1);
end;
begin
WriteLn('n!=',factorial(n));
end.