作业帮 > 综合 > 作业

pascal 回文数大家都知道,就是顺序和倒序是一样的.下面我们来寻找回文数,在寻找回文时不用理睬那些标点符号、空格(但

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/06/02 23:27:11
pascal
回文数大家都知道,就是顺序和倒序是一样的.下面我们来寻找回文数,在寻找回文时不用理睬那些标点符号、空格(但应该保留下来以便做为答案输出),只用考虑字母'A'-'Z'和'a'-'z'.要你寻找的最长的回文的文章是一个不超过20,000个字符的字符串.
我们将保证最长的回文不会超过2,000个字符(在除去标点符号、空格之前)
var
n,l,t,i:longint;
s:string;
begin
readln(n);
str(n,s);
l:=length(s);
t:=0;
for i:=1 to l div 2 do if s[i]s[l-i+1] then begin t:=1;break;end;
if t=0 then writeln('YES') else writeln('NO');
end.