переворот числа! помогите плиззз

[Devil]

Кто нибудь помогите позя!!!
Подскажите как сделать переворот числа с помощью рекурсии!
Например 7653 то 3567. Число брать как значение а не как строку!
Заранее благодарю.

[Virtson]

Function Rec(x, R: integer): integer;
begin
   R:= 10*(R + x mod 10);

   if x>=10 then Rec:= Rec(x div 10, R)
               else Rec:= R div 10;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption:= inttostr(Rec(12345457, 0));
end;

[Devil]

)))))))очень благодарен

[Virtson]

оперативная помошь по настроению.. - люблю рекурсию.

[Devil]

она работает тока с числами начинающимися на 1, к остальным он приписывает 0.
пасибки))))усе сделал)) надо было поставить не x>1, а x>9 =))))))))

пасибки))))усе сделал)) надо было поставить не x>1, а x>9 =))))))))

очень помог)))
я написал переворот числа, работающая со строкой, когда мне дали чтоб как с числом, я сел,все перепробовал(но еще глупенький)))

[Virtson]

"не x>1, а x>9" - верное замечание