编写程序,判断一字符串是否为回文,回文即顺读和逆读都一样的字符串,如madam,123321。

如题所述

program huiwen;
var a,b:string;
i:integer;
begin
readln(a); //读入
b:='';
for i:= 1 to length(a) do
b:=b+(a[length(a)+1-i]); //把a逆序后放到b中
if a=b then writeln(true) else writeln(false); //判断顺读和逆读是否一样
readln;
end.
温馨提示:答案为网友推荐,仅供参考
第1个回答  2009-07-11
用 subrev 这个系统自带的函数,将字符串反序,再判断它是否和原字符串相等。
相似回答