|
下面是一个简单的程序,运行结果就得到 35932 :
var i,j,k,l,m,n,p,s : int;
begin
s:=0;
for i:=1 to 30 do
for j:=i+1 to 30 do
for k:=j+1 to 30 do
for l:=k+1 to 30 do
for m:=l+1 to 30 do
for n:=m+1 to 30 do
for p:=n+1 to 30 do
if (i+j+k+l+m+n+p=100) then s:=s+1;
writeln(s);
readln;
end.
|
|