[Sharky]

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

А что должно быть в случае числа, например, 995?
вообще, можно, наверное, тк:

Код:

TDigit = (1,2,3,4,5,6,7,8,9,0);
TDigits = Set Of TDigit;

function ParceDigit(A  :Integer) : TDigits;
begin
  Result := [];
  While A > 0 Do
    Begin
      Result := Result + [A mod 10];
      A := A div 10;
    End;
end;

PS. Не пробовал запускать
По логике - понятно что делается.

ну это то конечно да
1 но рекурсия представленная выше будет бесконечна т к она не дайдет до A := A div 10; ))
но смысл понятен спс