Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Перемтановка цифр в числе

Автор: kaktus 21.02.2008 0:42

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

Автор: Michael_Rybak 21.02.2008 0:43

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


Автор: klem4 21.02.2008 1:39

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

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;