2016普级组模拟试题(20161114) 给出字符串

Description

给出一个由小写字母组成的字符串。你的任务是找出其最长的出现至少两次的子串的长度。这些重复出现的子串可以重叠（参见样例2）。

Input

输入文件ygas.in第一行包含该字符串。数据保证该字符串非空，由小写字母组成，且其长度不超过100。

Output

输出文件ygas.out包含一个数代表至少出现两次的最长子串的长度。

Sample Input

【输入样例1】
abcd
【输入样例2】
ababa
【输入样例3】
zzz
Sample Output

【输出样例1】
0
【输出样例2】
3
【输出样例3】
3

题解

枚举，没什么好讲的~~TAT

代码

var
  a,b,c:string;
  i,j,l:longint;
begin
  readln(a);
  l:=length(a);
  for i:=l-1 downto 1 do
    for j:=1 to l-i+1 do
      begin
        c:=a;
        b:=copy(c,j,i);
        c[j]:=' ';
        if pos(b,c)<>0 then
          begin
            writeln(i);
            exit;
          end;
      end;
  writeln(0);
end.