Tyvj-Begin P1029 Begin1 - Unit6 - 幼稚的把戏

描述 Description

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

输入格式 Input Format

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

输出格式 Output Format

一行,原来的珠串

样例输入 Sample Input

1232232112322321

样例输出 Sample Output

1232

时间限制 Time Limitation

1s

注释 Hint

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

 

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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.

posted on   yachen  阅读(449)  评论(0编辑  收藏  举报

编辑推荐:
· .NET 原生驾驭 AI 新基建实战系列:向量数据库的应用与畅想
· 从问题排查到源码分析:ActiveMQ消费端频繁日志刷屏的秘密
· 一次Java后端服务间歇性响应慢的问题排查记录
· dotnet 源代码生成器分析器入门
· ASP.NET Core 模型验证消息的本地化新姿势
阅读排行:
· ThreeJs-16智慧城市项目(重磅以及未来发展ai)
· .NET 原生驾驭 AI 新基建实战系列(一):向量数据库的应用与畅想
· Ai满嘴顺口溜,想考研?浪费我几个小时
· Browser-use 详细介绍&使用文档
· 软件产品开发中常见的10个问题及处理方法

导航

< 2010年11月 >
31 1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 1 2 3 4
5 6 7 8 9 10 11

统计

点击右上角即可分享
微信分享提示