Из заданного числа вычли сумму его цифр. Из результата вновь вычли сумму его цифр и т.д....

Question

Из заданного числа вычли сумму его цифр. Из результата вновь вычли сумму его цифр и т.д. сколько таких действий надо произвести, чтобы получился нуль.
Помогите пожалуйста. Принцип работы должен быть такой: берем число, например 24, считаем сумму его цифр 2+4=6 =>вычитаем 24-6=18 => 1+8=9 => 18-9 => 9-9=0

Answer 1

 Pascal
//Эта программа корректно работает для двухзнаных чисел
// при a > 100 будет к примеру 125 =>125-(12+5)...

var   a,k : integer; 
    begin 
  k := 0; 
 readln (a); 
 while a > 0 do 
 begin 
  a := a - (a div 10 + a mod 10); 
 k := k +1; 
  end; 
writeln (k); 
end.

Comments

т.е с трехзначными числами программа некорректно работает? Это существо портит картину :( Программа должна работать с любимым кол-вом цифр в числе

---

ну тогда алгоритм сложнее будет

---

Если вас не затруднит, то, пожалуйста, сделайте его сложнее :)