TyvjBegin P1029 Begin1 Unit6 幼稚的把戏

描述 Description

某某国王(不是萨拉克门托..!)有一个神奇的魔镜,,,
它可以把东西变为原来的两倍..
(可惜是反的..)
某日,他感到很无聊,
于是把皇后的一串珠子变了不知道几次..
皇后回来之后不是很高兴,,
她还是喜欢原来那串珠子,,
现在告诉你改变之后珠子的形状,,
请你告诉她,原来的珠子是什么样子的..

输入格式 Input Format

一行，一串字符，表示现在的珠串
长度小于100

输出格式 Output Format

一行，原来的珠串

样例输入 Sample Input

1232232112322321

样例输出 Sample Output

1232

时间限制 Time Limitation

1s

注释 Hint

注意 若左右对称则保留左边的一节

 

字符串题，10分钟内用递归搞定

var
 s:string;
 n,i:integer;
function duibi(all:string):boolean;
 var
  len,j:longint;
 begin
  duibi:=true;
  len:=length(all);
  for j := 1 to len do
   if all[j]<>all[len+1-j] then exit(false);
 end;
procedure dg(x:string);
 var
  snew:string;
  l,l2:longint;
 begin
  l := length(x);
  l2 := round(l/2);
  if (l2*2 <> l) or (not(duibi(x))) then
   begin
    writeln (x);
    exit;
   end;
  snew := copy (x,1,l2);
  dg(snew);
 end;
begin
 readln (s);
 dg(s);
end.