您现在的位置:小学生自学网>> 信息>> 学习电脑

基础算法__判断回文数

作者: 来源: 发布时间:2017年04月12日 点击数:
 
数字法判断回文数
 
var a,b,c,d,i,j,t:longint;
 
begin
 
readln(a);
t:=a;
while a>0 do
        begin
        b:=b*10+a mod 10;
        a:=a div 10;
        end;
 
if t=b then writeln('yes') else writeln('no');
 
end.
 
 
 
 
字符法判断回文数
 
 
 
var b,c,d,i,j,t,len:longint;a:string;
begin
 
readln(a);
len:=length(a);
t:=0;
for i:=1 to len div 2 do if a[i]<>a[len+1-i] then
        begin
        t:=1;
        break;
        end;
 
if t=0 then writeln('yes') else writeln('no');
 
end.