作业帮 > 综合 > 作业

输入正整数n,S=1!+2!+3!+…+n!,输出S的值

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/11/09 01:48:19
输入正整数n,S=1!+2!+3!+…+n!,输出S的值
Input 有一行且只有一个正整数:n ( 1
这个,可以么?const maxn=160; var f,s:array[1..maxn] of integer; i,j,k,g,n:integer; begin readln(n); f[maxn]:=1; for i:=1 to n do begin g:=0; for j:=maxn downto 1 do begin k:=f[j]*i+g; f[j]:=k mod 10; g:=k div 10; end; g:=0; for j:=maxn downto 1 do begin k:=s[j]+f[j]+g; s[j]:=k mod 10; g:=k div 10; end; end; for j:=1 to maxn do if s[j]0 then break; for i:=j to maxn do write(s[i]); writeln; end.