分析:按位贪心即可. program sleep; var a,g:..]of longint; n,i,m,ans,t,len,x,y,v:longint; c:char; s:string; e:boolean; function cheak(x,y:longint):longint; var i:longint; begin to n do begin ) ); ) ); ) ); end; exit(x); end; begin assign(input,'sleep.in'); res…