var j,m,n,k:comp;begin repeat inc(j);n:=j;repeat m:=0;k:=n;repeat m:=m*10+k mod 10;k:=k div 10until k=0;n:=n+m until m*2=n;writeln(m)until j=195end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page