Перемтановка цифр в числе Опции

[kaktus]

Дано например число 631, поменять первую и последнюю цифры местами, в итоге должно получиться 136.
и ещё как найти наибольшую цифру в числе???

Сообщение отредактировано: kaktus - 21.02.2008 0:43

[Michael_Rybak]

в faq есть разбиение числа на цифры.

[klem4]

Если надо поменять именно 1 и последнюю цифры, то вот тебе концептуальное решение

procedure FirstLast(var X: LongInt);
var i: LongInt;
begin
  if X > 10 then begin
    i := 10;
    while X div i > 10 do i := i * 10;
    X := X mod 10 * i + ((X div 10) mod (i div 10)) * 10 + X div i;
  end;
end;

Сообщение отредактировано: klem4 - 21.02.2008 1:40