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 . |
【推荐】还在用 ECharts 开发大屏?试试这款永久免费的开源 BI 工具!
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· .NET 原生驾驭 AI 新基建实战系列:向量数据库的应用与畅想
· 从问题排查到源码分析:ActiveMQ消费端频繁日志刷屏的秘密
· 一次Java后端服务间歇性响应慢的问题排查记录
· dotnet 源代码生成器分析器入门
· ASP.NET Core 模型验证消息的本地化新姿势
· ThreeJs-16智慧城市项目(重磅以及未来发展ai)
· .NET 原生驾驭 AI 新基建实战系列(一):向量数据库的应用与畅想
· Ai满嘴顺口溜,想考研?浪费我几个小时
· Browser-use 详细介绍&使用文档
· 软件产品开发中常见的10个问题及处理方法