===== PascalABC.NET =====
function СуммаЦифр(Число: integer): integer;
begin
Result := 0;
while Число > 0 do
begin
Result += Число mod 10;
Число := Число div 10
end
end;
procedure ЧислоДействий(Число: integer; var Действий: integer);
begin
Число := Abs(Число); // вдруг кто-то задал отрицательное?
Действий := 0;
while Число > 0 do
begin
Число -= СуммаЦифр(Число);
Inc(Действий)
end;
if Число <> 0 then // невозможно получить 0
Действий := -1
end;
begin
var Число := ReadInteger('Введите число:');
var СделаноДействий := 0;
ЧислоДействий(Число, СделаноДействий);
if СделаноДействий >= 0 then
Print('Сделано действий:', СделаноДействий)
else
Print('Невозможно получить ноль')
end.
