2到100000有几个回文数快

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/08 04:35:01
2到100000有几个回文数快
xN0_cgi_'uQlJtBH!@JUepWI ayḹorkͫo|voY}nX2-Ѐj6e‰T ̉퐐 i bRd{`t ".$ОHXq+=qe'l,"(tpwtb 4Ɲ4u*Q7 ];WUuy~Ye}U5]-O_MْM,ܬJoV=R

2到100000有几个回文数快
2到100000有几个回文数

2到100000有几个回文数快
var s:string;i,j,x:longint;f:boolean;
begin
for i:=2 to 100000 do begin
str(i,s);f:=true;
for j:=1 to length(s) div 2 do
if s[j]s[length(s)+1-j] then f:=false;
if f then inc(x);
end;
writeln(x);
end.
应该对的,可我答案是1097个.

共8+9+81+81+729=908(个)