1049【入门】判断是否构成回文
var s:string; le,i:longint;begin readln(s); le:=length(s)-1; for i:=1 to le div 2 do if s[i]<>s[le+1-i] then begin writeln('FALSE'); halt; end; writeln('TRUE');end.
本文共 304 字,大约阅读时间需要 1 分钟。
var s:string; le,i:longint;begin readln(s); le:=length(s)-1; for i:=1 to le div 2 do if s[i]<>s[le+1-i] then begin writeln('FALSE'); halt; end; writeln('TRUE');end.
转载于:https://www.cnblogs.com/qilinart/articles/5751765.html