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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/05/15 14:22:57
定义函数facto(intn)计算阶乘,主函数调用该函数,完成1!+2!+3!+…+s!定义函数facto(intn)计算阶乘,主函数调用该函数,完成1!+2!+3!+…+s!定义函数facto(in

定义函数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时请使用高精度!