不是VIP会员,不能显示答案

题目解答

题目:
var
n, i : integer; str : string; isPlalindrome : boolean;
begin readln(str);
n := Length(str);
isPlalindrome := true;
for i := 1 to (n div 2) do begin
if (str[i] <> str[n-i+1]) then
isPlalindrome := false;
end;
if (isPlalindrome) then writeln('Yes')
else
writeln('No');
end.
输入:abceecba
输出:YES
考点: 0
分析:
解答: 判定输入的字符串是否是回文串
评论:
老师: 0