Палиндромы

[AcHt]

Пожалуйста помогите! Возникла проблема с решением задачи. Найти порядковый номер наибольшего по значению числа, являющегося симметричным в десятичном представлении.
Пример: 1 55 31200 676 4884 30503 31412 29692;
результат: 30503, i=6.

[digitalis]

Ну и на каком языке требуется шедевр ? Преобразование в string допускается - или делением ?

function palind(arg : integer): integer ;
// Если палиндром, возвращается сам аргумент, иначе -1 ;  
var i,j,k : integer ; tmp : array[1..16] of integer ;
begin
  i := arg ;
  j := 1 ;
  while ( i>0 ) do
    begin
       k := i mod 10 ;
       tmp[j] := k ;
       Inc (j) ;
       i := i div 10
    end ;
  k := 0 ;
  for i := 1 to (j div 2) do if tmp[i]<>tmp[j-i] then Inc(k) ;
  if k=0 then palind := arg else palind := -1 ;
end ;

Вот те функция на Паскале, на ++ портируй сам

Ну и ввод данных, и сравнение на > - это умеют даже лошади.

[AcHt]

C++
Делением %10