2到100000有几个回文数快

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/05 22:52:22
2到100000有几个回文数快

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(个)