狐狸和兔子，围绕着山顶有10个洞……

推荐回答

第2、4、6、9都行var a:array[1..10] of boolean; i,t:integer;begin for i:=1 to 10 do a[i]:=true; a[1]:=false; j:=1; for i:=2 to 1000 do begin t:=i+t; while t>10 do dec(t,10); a[t]:=false;end; for i:=1 to 10 do write(a[i],' ');end.请采纳答案，支持我一下。