задача на множества Опции

[natik3]

Дана последовательность из n натуральных чисел.Написать программу,которая выводит в возрастающем порядке все цифры,которые входят хотя бы в одно число.

[IUnknown]

Блин, да что с вами со всеми? Оцепенение всеобщее. Как будто обкурились все... Какие оптимизации? Какие выписывания всех цифр подряд и удаление повторяющихся? Какая нахрен сортировка? Речь о МНОЖЕСТВАХ, так заметнее? Они не сортируются, нет в этом смысла. Все элементарно:

var
   i, x : Integer;
   s : set of byte;
   b : boolean;

{ ... }

   s := [];
   for i := 1 to n do
   begin
      X := a[ i ];
      b := true; // Если ноль считать натуральным - то надо его тоже правильно обрабатывать
      while b or (X <> 0) do
      begin
         s := s + [x mod 10];
         b := false;
         x := x div 10;
      end;
   end;

Всё, множество s содержит все цифры, которые есть хотя бы в одном числе. Пройтись циклом от 0 до 9 и вывести все цифры, которые есть во множестве - труда не составит? Это так, вместо сортировки.

Сообщение отредактировано: IUnknown - 5.06.2012 20:06