使用任意循环语句编写程序,计算1+2!+3!+4!+…+n!的和.最后以指数的形式输出

var n,i:integer; ans:int64;function js(n:integer):longint;var i:integer;beginjs:=1;for i:=1 to n do js:=js*i;end;beginread(n);for i:=1 to n do inc(ans,js(i)); end.