【基础】回文数个数

【基础】回文数个数

时间限制: 1 Sec   内存限制: 64 MB
提交: 421   解决: 320
[ 提交][ 状态][ 讨论版]

题目描述

如果一个正整数从左向右读与从右向左读均是一样，则称其为回文数。例如3、121、3223、12021都是回文数。

输入

任意给定一个正整数n（0 < n <= 100000 ）

输出

一个正整数，表示[1,n]之间的回文数的个数。

样例输入

325

样例输出

41

提示

 

来源

2005年江苏省小学生信息学（计算机）奥赛

[ 提交][ 状态][ 讨论版]

 

var
    s: string;
    a:boolean;
    i,j,len,x,tot:longint;
begin
    readln(x);  tot:= 0;
     for i:= 1 to x  do
    begin
        str(i,s);
        a:= true;
        len:=length(s);
         for j:= 1 to len div  2  do
             if s[j]<>s[len+ 1-j] then a:= false;
         if a then inc(tot);
    end;
    writeln(tot);
end.

 

转载于:https://www.cnblogs.com/qilinart/articles/3001747.html