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.