Скільки можна?

Дано натуральне число N. Від даного числа віднімемо суму цифр цього числа, від утвореного числа знову віднімемо суму цифр утвореного числа і т. д. Дану операцію над числом будемо виконувати, поки утворене число додатне. Скільки разів будемо виконувати дану операцію.

Вхідні дані

У вхідному рядку знаходиться додатне число N, яке не перевищує 2000000000.

Вихідні дані

Кількість виконаних операцій.

Вхідні дані #1

21

Вихідні дані #1

3

program ckilki_mogna;

type a = -10000000000..10000000000;

var n : a;

k:int64;

function sum(n:a):integer;

var s : a;

begin

s:=0;

while n<>0 do begin

s:=s+n mod 10;

n:=n div 10;

end;

sum:=s;

end;

BEGIN

readln (n); k:=0;

while n>0 do begin

k:=k+1; n:=n-sum(n); end;

writeln (k);

END.