Kak cоставить всевозможные числа из цифр введенного числа в Delphi7

Kak cоставить всевозможные числа из цифр введенного числа в Delphi7

  • Решать за вас не собираюсь, но совет дать могу - гуглите алгоритмы генерации всех подмножеств данного множества (в итоге вам также придется генерировать из полученных подмножеств их перестановки, т. к. множество цифр в числе упорядоченно).
  • При помощи рекуррентной процедуры.
  • Небольшая поправка к первому ответу: рекурсивной процедуры.

    Если нужен код - обращайтесь на почту.

  • В цикле перебираете. Если вариантов немного, то к примеру:
    s := '1357';
    for i :=0 to pow( length(s), 5 ) do
    begin
    r := '';
    n := i;
    while (n > 0) do begin r := s[ n mod lengt(s)+1) ] + r; n := n div length(s); end;
    вывести (r);
    end;