一道很白痴的程序题目请人编
我可以给VB的你。Dim i, j, n, s As LongFor i = 1 to 5 n = 1 for j = 1 to i n = n * j Next j s = s + nNext iPascal的也行var i,j,n,s:longint;for i:=1 to 5 do begin n:=1; for j:=1 to i do n:=n*j; s:=s+n; end;s就是所求答案