var s:string;i,j,x:longint;f:boolean;beginfor i:=2 to 100000 do beginstr(i,s);f:=true;for j:=1 to length(s) div 2 doif s[j]s[length(s)+1-j] then f:=false;if f then inc(x);end;writeln(x);end.应该对的,...