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.