{C(23,7)}

program zu;
var
  a,b,c,d,e,f,g:integer;
begin
  for a:=1 to 17 do
  for b:=a+1 to 18 do
  for c:=b+1 to 19 do
  for d:=c+1 to 20 do
  for e:=d+1 to 21 do
  for f:=e+1 to 22 do
  for g:=f+1 to 23 do
  writeln(a,' ',b,' ',c,' ',d,' ',e,' ',f,' ',g)  
end.

这是最垃圾的做法……
当然，只有7个数，这样做也就罢了

还有什么好办法ma?

速度太慢了
我听老师说
竞赛这个运行速度要小于一秒