来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/27 12:20:30
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个.