国王有一个魔镜，可以把任何接触镜面的东西变成原来的两倍——只是，因为是镜子嘛，增加的那部分是反的。 比如一条项链，我们用AB来表示，不同的字母表示不同颜色的珍珠。如果把B端接触镜面的话，魔镜会把这条项链变为ABBA。如果再用一端接触的话，则会变成ABBAABBA（假定国王只用项链的某一端接触魔镜）。 给定最终的项链，请编写程序输出国王没使用魔镜之前，最初的项链可能的最小长度。
Input
文件名：MAGIC.IN 文件中只有一个字符串，由大写英文字母组成，表示最终的项链。
Output
文件名：MAGIC.OUT 文件中只有一个整数，表示国王没使用魔镜前，最初的项链可能的最小长度。
Sample Input ABBAABBA
Sample Output 2
此题不难
我们先将项链读进来，我们一次一次将这项链分为两半，直到不可以分为止（t mod 2<>0)。最后将长度输出来。
只要我们找到思路 就不难 做出来
代码如下
var x,s,y:ansistring; t,i:longint; begin read(x); t:=length(x); if t mod 2=0 then begin repeat if t mod 2=0 then begin s:=copy(x,1,t div 2); y:=''; for i:=length(x) downto t div 2+1 do y:=y+x[i]; if y=s then begin t:=t div 2; x:=copy(x,1,t); end else begin write(t); exit; end; end; until t mod 2<>0; write(t); exit; end; write(t); end.