Как разложить число на цифры ( задача )

[neo-210]

Всем привет. Я интересуюсь как например разложить число 153 -> на 1 5 3 по отдельности программным спопособм. Тоесть получить цифры из которых состоит число.

Меня интересует только сам математический алгоритм, но можно и пример на C or Pascal.

Вариант типо записать в строку, а потом выделить числа не принимается я ищу математический метод, который пока не могу придумать.

[Serge_Bliznykov]

x mod 10 - вернёт последнюю цифру числа x
потом сдвигаем число, разделив его целочисленно на 10:
x := x div 10
повторяем, пока x > 0

[SNUPY]

Два способа получения отдельной цифры:
1. (не помню на паскале это актуально или нет =\) Нуу в общем переведи в строку число и дергай по символу =))), т.е. это так как наш мозг работает =)))
2. для получения i-ой цифры (m) в числе n:
m=(n mod (10 ^(i))) div (10 ^ (i-1))

Помоему так =)))

[neo-210]

Спасибо попробуемс.

[Alex_FF]

var
  X, Digit: Integer;
begin
  ReadLn(X);
  while X <> 0 do
  begin
    Digit := X mod 10;
    { обрабатываешь цифру Digit}
    X := X div 10;
  end;
end.

[Serge_Bliznykov]

alex
лучше, всё же так:

var
  X, Digit: Integer;
begin
  ReadLn(X);
  repeat 
    Digit := X mod 10;
    { обрабатываешь цифру Digit}
    X := X div 10;
  until X = 0;
end.

[Alex_FF]

Сообщение от Serge_Bliznykov

alex
лучше, всё же так:

var
  X, Digit: Integer;
begin
  ReadLn(X);
  repeat 
    Digit := X mod 10;
    { обрабатываешь цифру Digit}
    X := X div 10;
  until X = 0;
end.

Ну да, про ноль я забыл