麥森數

      const maxn=500; var a,sta:array[0..2*maxn]of longint; n,len:longint; procedure solve(n:longint); var i,j:longint; begin if n=0 then exit; solve(n div 2); fillchar(sta,si

>>阅读原文<<