Tyvj-Begin 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.