clihltto RT183.1
Твой алгоритм впринцыпе легко исправить. Я почти также, как и ты решал ( 8-ой в списке ), но на сяхе. Но правда я всеравно не уверен, что мой алгоритм правильный. Както они к тестам по этой задаче несерьезно подошли.
Отметь плиз что, как и где надо подправить в моем коде
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
{$APPTYPE CONSOLE}
{$I-,Q-,R-,S-}
label mtk;
var tcs,w,n,n1,n2,i,j,sch: longint;
a: array[ 1 .. 32000 ] of longint;
f: text; c: char;
begin assign(f,''); reset(f);
readln(f,tcs);
repeat
n:= 0 ;
readln(f,w); for i:= 1 to w do begin read(f,c);
if c='1' then begin a[i]:= 1 ; inc(n); end
else a[i]:= 0 ; end; readln(f);
if n= 1 then begin writeln('yes'); goto mtk; end;
if (n=w)or(n= 0 ) then begin writeln('no'); goto mtk; end;
sch:= 0 ;
i:= 1 ; while a[i]= 0 do inc(i);
while (a[i+ 1 ]= 1 )and(a[i+ 2 ]= 0 ) do
begin
inc(sch); if sch=n- 1 then begin writeln('yes'); goto mtk; end;
a[i]:= 0 ; a[i+ 1 ]:= 0 ; i:=i+ 2 ; a[i]:= 1 ;
end;
n1:= 0 ; while (a[i]= 1 )and(i<=w) do begin inc(n1); inc(i); end;
if i>w then
begin
if n1< 3 then begin writeln('yes'); goto mtk; end
else begin writeln('no'); goto mtk; end;
end;
j:=w; while a[j]= 0 do dec(j);
while (a[j- 1 ]= 1 )and(a[j- 2 ]= 0 ) do
begin
inc(sch); if sch=n- 1 then begin writeln('yes'); goto mtk; end;
a[j]:= 0 ; a[j- 1 ]:= 0 ; j:=j- 2 ; a[j]:= 1 ;
end;
n2:= 0 ; while (a[j]= 1 )and(j>= 1 ) do begin inc(n2); dec(j); end;
if j< 1 then
begin
if n2< 3 then begin writeln('yes'); goto mtk; end
else begin writeln('no'); goto mtk; end;
end;
if j<>i then writeln('no') else
begin
if ((n2 mod 2 = 1 )and(n1 mod 2 = 0 ))or((n1 mod 2 = 1 )and(n2 mod 2 = 0 )) then
writeln('yes') else writeln('no');
end;
mtk:
dec(tcs); until tcs= 0 ;
close(f);
end.
