由于只用边上接触“魔镜”，所以只要
1. 首先判断项链的长度是不是偶数，如果不是直接输出其长度并结束程序。
2. 从1到length div 2来判断a[i]=a[length+1-i]是否相等，如果不等直接输出其长度并结束程序。
3. 如果相等那么length:=length div 2，回到1重复执行程序。

由于是这样的规则，所以无论怎么变，
当把AB变成1和0是会惊奇地发现初最初的项链，
其他有0和1组成的数字都是回文数，
由此判断，
不停的把项链在满足左边一半和右边一半相等的情况下折成相等的两段，
直至无法再折为止。
如：ABBAABBA
按不停的把项链在满足左边一半和右边一半相等的情况下折成相等的两段的规则剪段
则变成：ABBA，再次剪段，变成AB，发现无法再剪时输出AB，
结束程序

程序：
program magic                      //程序名。
var                                //定义。
 a,b,n:string;                     //定义a，b，c变量为字符串型。
 c:boolean;                        //定义c变量为布尔型。
 i:integer;                        //定义i变量为长整型。
begin                              //主程序开始。
 readln(n);                        //键盘输入字符串n。
 repeat                            //直到循环开始。
  c:=false;                        //定义c值为假。
  if length(n) mod 2 = 0 then      //判断n长度是否是偶数。
   begin                           //是偶数就进入程序。
    c:=true;                       //定义c为真。
    for i:=1 to length(n) div 2 do //计数循环，从1到n的长度整除2.
     if copy(n,i,1) <> copy(n,length(n)+1-i,1) then c:=false;//判断两遍是否吻合，否c为假。
    if c:=true then n:=copy(n,1,length(n) div 2);//如果c为真，n就去掉一半。 
   end;                            //子程序结束。
 until c=true;                     //直到c为真，推出循环。
 writeln(length(n));               //输出n的长度。
end.                               //程序结束。
   

我顶你，杜子豪

好，我顶

有点错
program magic（这里；）                      //程序名。
var                                //定义。
 a,b,n:string;                     //定义a，b，c变量为字符串型。
 c:boolean;                        //定义c变量为布尔型。
 i:integer;                        //定义i变量为长整型。
begin                              //主程序开始。
 readln(n);                        //键盘输入字符串n。
 repeat                            //直到循环开始。
  c:=false;                        //定义c值为假。
  if length(n) mod 2 = 0 then      //判断n长度是否是偶数。
   begin                           //是偶数就进入程序。
    c:=true;                       //定义c为真。
    for i:=1 to length(n) div 2 do //计数循环，从1到n的长度整除2.
     if copy(n,i,1) <> copy(n,length(n)+1-i,1) then c:=false;//判断两遍是否吻合，否c为假。
    if c:（这里去：）=true then n:=copy(n,1,length(n) div 2);//如果c为真，n就去掉一半。 
   end;                            //子程序结束。
 until c=true;                     //直到c为真，推出循环。
 writeln(length(n));               //输出n的长度。
end.                               //程序结束。

abbaabba 你的是4

程序是错了，repeat循环推出条件应该改成c=false

嘻嘻