幸运字符串(string)

【问题描述】

对于一个只包含0和1的字符串，如果A是幸运的，B也是幸运的，那么1AB1也是一个幸运的串。现在定义”0”是一个幸运字符串，请判断给定的字符串S是否是幸运的。

【输入格式】

第一行一个数字T，表示数据组数。

接下来T组数据，第一行字符串长度n，接下来一行一个只含01的字符串。

【输出格式】

T行，第i个串如果是幸运字符串那么输出”YES”，否则输出”NO”。

【样例输入】

3

4

1001

7

1100101

7

0110011

【样例输出】

YES

YES

NO

【数据范围】

      30%的数据满足n<=100；

50%的数据满足n<=300；

100%的数据满足n<=800，T<=10

未1A的原因，又没改ansistring

//string
var
   n,tt,i,j,now:longint;
   s:ansistring;
function sort(i,j:longint):boolean;
var
   k:longint;
begin







   if (i=j) then
   begin
      if s[i]='0' then exit(true)
      else exit(false);
   end;
 {
   if (s[i]='1') and (s[j]='1') then
   begin
      for k:=i+1 to j-2 do
         if (sort(i+1,k)) and (sort(k+1,j-1)) then exit(true);

   end;
 }
   exit(false);


end;
begin
   assign(input,'string.in');
   assign(output,'string.out');
   reset(input);
   rewrite(output);
   readln(tt);
   while (tt>0) do
   begin
      readln(n);
      readln(s);
      while (true) do
      begin
         i:=pos('1001',s);
         if (i=0) then break;
         delete(s,i,2);
         delete(s,i+1,1);
         dec(n,3);
      end;





      if (sort(1,n)) then writeln('YES')
      else writeln('NO');

      dec(tt);
   end;
   close(input);
   close(output);
end.

传纸条(message)

【题目描述】

小N和小A上课喜欢传纸条。

传纸条是有风险的，为了在老师发现的时候不知道他们在讨论什么内容，他们发明了一系列的加密方式。

其中有一种是这样的：一个数字由两个字符串a和b表达，这个数字就是b在a中匹配的位置。比如，a=”abcd”，b=”c”，那么这个数字就是3。

但是这样会出现一个问题，a和b能够表达两个不同的数字：比如，a=“ababa”，b=”aba”时，那个数字可以是1也可以是3。

他们对这种现象很好奇，现在给定一个字符串a，求一个整数x使得对于任意一个长度大于x的串b，这一问题都不会出现。

【输入数据】

一个仅由小写字母组成的字符串a

【输出数据】

一行一个整数，表示x的最小值

【样例输入】

ababa

【样例输出】

3

【数据范围】

对于50%的数据，a的长度≤10,

对于100%的数据，a的长度≤100.

Program message;
var
   n,i,j,k,l,ans:longint;
   s:string;
function min(a,b:longint):longint;
begin
   if (a<b) then exit(a) else exit(b);
end;
function max(a,b:longint):longint;
begin
   if (a>b) then exit(a) else exit(b);
end;

begin
   assign(input,'message.in');
   assign(output,'message.out');
   reset(input);
   rewrite(output);


   readln(s);
   n:=length(s);
   ans:=0;
   for i:=1 to n do
      for j:=i+1 to n do
      begin
         k:=i;
         l:=j;
         while ((s[k]=s[l]) and (l<=n)) do
         begin
            inc(k);
            inc(l);
            if (l>n) then break;
         end;


         ans:=max(ans,k-i);

      end;
   writeln(ans);

   close(input);
   close(output);

end.