定义函数facto(int n)计算阶乘,主函数调用该函数,完成1!+2!+3!+…+s!

定义函数facto(int n)计算阶乘,主函数调用该函数,完成1!+2!+3!+…+s!
定义函数facto(int n)计算阶乘,主函数调用该函数,完成1!+2!+3!+…+s!

定义函数facto(int n)计算阶乘,主函数调用该函数,完成1!+2!+3!+…+s!
var s,ans:int64; i:longint;
begin
readln(s);
for i:=1 to s do inc(ans,facto(i));
writeln(ans);
end.
也许需要高精度!当s>=13时请使用高精度!