第2个回答 2007-11-08
var
i,j,k,l,m,n,o:integer;
begin
for i:= 0 to 9 do
for j := 0 to 9 do
for k := 0 to 9 do
for l := 0 to 9 do
for m := 0 to 9 do
for n := 0 to 9 do
for o := 0 to 9 do
begin
ShowMessage(IntToStr(i)+IntToStr(j)+IntToStr(k)+IntToStr(l)+IntToStr(m)+IntToStr(n)+IntToStr(o));
end;本回答被提问者采纳