编写函数，判断某一整数是否为回文数，若是返回1，若不是返回0（所谓回文数就是该数正读和反读是一样的，
编写函数，判断某一整数是否为回文数，若是返回1，若不是返回0（所谓回文数就是该数正读和反读是一样的，
日期：2011-11-21 17:36:45 人气：1
function check(x : longint) : longint;
var
st : string;
i : longint;
begin
str(x, st);
for i := 1 to length(st) div 2 do
if st[i] st[length(st) - i + 1] then exit(0);
exit(1);
end;