c语言的：
#include
main()
{
int i,j,k=1,h;
for(j=2;j<=10;j++)
{
h=1;
for(i=2;i<=j;i++)
h=h*i;
if(j%2==0)
k=k-h;
else k=k+h;
}
printf("%d\n",k);
}
pascal/delphi的：
var
i,j,k,h:longint;
begin
for j:=2 to 10 do begin
h:=1;
for i:=2 to j do h:=h*i;
if j mod 2=0 then k:=k-h else k:=k+h;
end;
writeln(k);
readln
end.
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024