Pascal判断回文

Function hw(s:string):boolean;

var

  n,m,i:longint;

begin

  n:=length(s);

  m:=n div 2;

  for i:=1 to m do

  if s[i]<>s[n-i+1] then exit(false);

  exit(true);

end;

如果想判断数字是不是回文，则先用str把数字转化成字符串即可！

转载于:https://my.oschina.net/u/3233411/blog/830155