program nomer38;
Var n, s, b, k: Integer;
begin
    b:=0;
    k:=0;
    Writeln ('Введите число');
    Readln (n);
    while n>0 do begin
    	s :=0;
    	b :=n;
    	while b > 0 do	begin
    		s := s + b mod 10;
    		b := b div 10;
		end;
		n:=n-s;
		k:=k+1;
	end;
    writeln('Число повторений');
    writeln(k);
end.