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

题目解答

题目:
var
len, i, ans: integer;
s, t : ansistring;
flag : boolean;
cn : longint;
begin
readln(cn);
while(cn > 0) do
begin
readln(s);
len := length(s);
for i := 1 to len do t := t + s[len-i+1];
flag := true;
for i := 1 to len-1 do
if(abs(ord(s[i+1])-ord(s[i]))<>abs(ord(t[i+1])-ord(t[i]))) then
flag := false;
if (flag) then ans := ans + 1;
cn := cn - 1;
end;
writeln(ans);
end.
输入:
5
acxz
bcxz
asdgqwe
asdffe
asde

输出:1
考点: 0
分析:
解答: 求前后字符差是否一致的字符串个数
评论:
老师: 0