2012年3月24日
排列
摘要： program pailie;const maxm=1000;var n,m,sum:longint; a:array[1..maxm]of longint; procedure print; var i:longint; begin for i:=1 to m do write(a[i]); writeln; end; procedure play(k:longint); var i:longint; begin if k=m+1 then begin inc(sum); print; ... 阅读全文
posted @ 2012-03-24 20:19 翱翔的感觉 阅读(131) 评论(0) 推荐(0)