这题很黑，叶子是第0层。以后一定认真看题

出这道题的一定不是好孩子！

好辣的题！！出题的人来自铁时空 ！！！！！！！！！！！！！！！也可能来自火星！！！！！！！！！！！！！！！！！！！！反正不是地球人！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

#includeint main(){long pow[16]={1,2,4,8,16,32,64,128,256,512,1024,2048,4096,8192,16384,32768};int n;int u,d;char a[40000]={"0"};long i,j,k;int num0=,num1=;long all=;scanf("%d",&n);scanf("%d%d",&u,&d);getchar();gets(a);for(k=d;(k

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

对于水题，我们坚决一次性秒杀，不给它通过率留一丝下降的机会

program p6(input,output);

const max=32768;

a:array[0..15] of longint=(1,2,4,8,16,32,64,128,256,512,1024,2048,4096,8192,16384,32768);

var f:array[0..max] of integer;

g:array[0..15,0..max] of integer;

p,i,j,k,n,m,st,en,xx,yy:longint;

ch:char;

begin

readln(n);

readln(en,st);

for i:=1 to a[n] do

begin

read(ch);

f[i]:=ord(ch)-ord('0');

end;

fillchar(g,sizeof(g),0);

k:=a[n];

for i:=0 to n do

begin

m:=0;

xx:=1;

yy:=0;

k:=a[n] div a[i];

for p:=1 to a[i] do

begin

m:=0;

yy:=xx+k-1;

for j:=xx to yy do m:=m+f[j];

xx:=xx+k;

if m=0 then g:=5;

if m=k then g:=2;

if (0n)and(st

注意u与d的范围

第0层是叶子

AC

树是倒了``

太阴了~

郁闷，叶子是第0层~~~骗我AC率

把这题想难了，我的程序过n=20都不成问题

├ 测试数据 01：运行超时...

├ 测试数据 02：运行超时...

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：运行超时...

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：运行超时...

├ 测试数据 09：运行超时...

├ 测试数据 10：运行超时...

var s:array[1..20,1..20] of string;

i,j,l,m,n,ee:longint;

a,b,c:longint;

max:longint;

function pt(e:string):boolean;

var q1,q2:boolean;

u:integer;

begin

q1:=false;q2:=false;

for u:=1 to length(e) do

begin

if e='1' then q1:=true;

if e='0' then q2:=true;

end;

if q1 and q2 then pt:=true else pt:=false;

end;

function qy(e:string):boolean;

var q1,q2:boolean;

u:integer;

begin

q1:=false;q2:=false;

for u:=1 to length(e) do

begin

if e='1' then q1:=true;

if e='0' then q2:=true;

end;

if q1 and (q2=false) then qy:=true else qy:=false;

end;

function zx(e:string):boolean;

var q1,q2:boolean;

u:integer;

begin

q1:=false;q2:=false;

for u:=1 to length(e) do

begin

if e='1' then q1:=true;

if e='0' then q2:=true;

end;

if (q1=false) and q2 then zx:=true else zx:=false;

end;

begin

readln(l);

readln(n,m);

readln(s[1,1]);

j:=1;max:=0;ee:=1;

if (j=m) then

begin

if pt(s[1,1]) then a:=a+1;

if qy(s[1,1]) then b:=b+1;

if zx(s[1,1]) then c:=c+1;

if a+b*2+c*5>max then max:=a+b*2+c*5;

end;

repeat

j:=j+1;ee:=ee*2;

for i:=1 to ee div 2 do

begin

s[j,2*i-1]:=copy(s[j-1,i],1,length(s[j-1,i]) div 2);

s[j,2*i]:=copy(s[j-1,i],length(s[j-1,i]) div 2+1,length(s[j-1,i]) div 2);

end;

if (j=m) then

begin

for i:=1 to ee do

begin

if pt(s[j,i]) then a:=a+1;

if qy(s[j,i]) then b:=b+1;

if zx(s[j,i]) then c:=c+1;

end;

if a+b*2+c*5>max then max:=a+b*2+c*5;

end;

if j=n+1 then

begin

for i:=1 to ee do

begin

if pt(s[j,i]) then a:=a+1;

if qy(s[j,i]) then b:=b+1;

if zx(s[j,i]) then c:=c+1;

end;

if a+b*2+c*5>max then max:=a+b*2+c*5;

end;

until j=l+1;

writeln(max);

readln;

end.

555555555555555555555555555555555555

好丑的题

树居然是倒着长的

害我WA了好多次

血的教训...

倒着长!!!

简单模拟,只需20几行

根的深度是n，叶子的深度是0

其他的话就是fbi树了

[blue]绝对AC代码（FP）[/blue]

var

n:byte;

u,d:longint;

zn:array[1..32768]of 0..1;

i,j:longint;

zval:int64;

ch:char;

procedure addval(st,en:longint);

var

i:longint;

ishave:array[0..1]of boolean;

begin

ishave[0]:=false;

ishave[1]:=false;

ishave[zn[st]]:=true;

for i:=st+1 to en do

if ishave[zn[i]]=false then

begin

ishave[zn[i]]:=true;

break;

end;

if ishave[0]=true then

begin

if ishave[1]=true then

inc(zval)

else

inc(zval,5);

end

else

inc(zval,2);

end;

function getlen(n:byte):longint;

var

i:integer;

begin

getlen:=1;

for i:=1 to n do

getlen:=getlen*2;

end;

begin

readln(n);

readln(u,d);

zval:=0;

for i:=1 to getlen(n) do

begin

read(ch);

zn[i]:=ord(ch)-48;

end;

if u>n then u:=n;

for i:=**[red]n-u[/red] to [red]n-d[/red]** do

for j:=1 to getlen(i) do

addval((j-1)*getlen(n-i)+1,(j-1)*getlen(n-i)+getlen(n-i));

write(zval);

end.

#include

#include

int n;

long u,d;

char T[35000];

long V[20];

void Init()

{

scanf("%d",&n);

scanf("%d %d",&u,&d);

if(u>n)u=n;

scanf("%s",&T);

}

long CF(int i)

{

if(i==0)return 1;

else return CF(i-1)*2;

}

int value(long m,long n,int cen)

{

int bj0=0,bj1=0;

long i,mid;

for(i=m;i=d;i--)

{

sum+=V[i];

}

printf("%ld",sum);

return 0;

}

汗……怎么会有这种水题……我却还米有做……

注意到这是一道水题……注意Hint Line#1

另外Orz一下Google提供的在该页面的广告：

***|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|*

新鲜水果采摘,来海淀新区

融采摘、观光与一体,边玩边采 采摘苹果、冬枣佳季,欢迎前来！

newzone.bjhd.gov.cn

***|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|*

交了10+次，一直216……实在忍不住了，抄Mr.Phone的，忏悔……

const x:array[0..20]of qword=(

1,2,4,8,16,32,64,

128,256,512,1024,

2048,4096,8192,16384

,32768,65536,131072,

262144,524288,1048576);

逼急了打表算层数.原来只有二十层.

编译通过...

├ 测试数据 01：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 02：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 03：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 04：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 05：答案错误...程序输出比正确答案长

├ 测试数据 06：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 07：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 08：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 09：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 10：运行时错误...| 错误号: 216 | 存取非法

以上是层数没有反的

反过来后就

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

感觉有点像FBI

枚举