задача на множество

[grib.oksanochka]

Помогите с задачей на множество.

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

[Петррр]

#include <iostream>
#include <set>
#include <iterator>
#include <vector>
#include <ctime>

void todigits(int num, std::insert_iterator< std::set<int> > it) {
	while ( num ) {
		*it++ = num % 10;
		num /= 10;
	}
}

int main() {
	srand(time(NULL));
	const size_t size = 15;
	std::vector<int> vec(size);
	for(int i = 0; i < size; i++)
		vec[i] = rand(); 
	std::copy(vec.begin(), vec.end(), std::ostream_iterator<int>(std::cout, " "));
	std::cout << std::endl << std::endl;
	std::set<int> st;
	for(int i = 0; i < size; i++)
		todigits(vec[i], std::inserter(st, st.end()));
	std::copy(st.begin(), st.end(), std::ostream_iterator<int>(std::cout, " "));
	std::cout << std::endl;
	system("pause");
	return 0;
}

[Stilet]

Рискну предполоджить такой алгоритм:

MODULE q;
IMPORT In, StdLog;
VAR i:INTEGER;
 n:SET;

PROCEDURE Parse(k:INTEGER);
VAR l:INTEGER;
BEGIN
 WHILE k>0 DO
  l:=k MOD 10;
  n:=n+{l};
  k:=k DIV 10;
 END;
END Parse;

PROCEDURE ok;
VAR i:INTEGER;
BEGIN
 FOR i:=0 TO 31 DO
  IF i IN n THEN StdLog.Int(i); END;
 END;

END ok;
PROCEDURE do*;
BEGIN StdLog.Clear;
 In.Open;
 In.Int(i);
 WHILE In.Done DO
  Parse(i);
  In.Int(i);
 END;
 ok;
END do;

END q.

ВВод 11 23 56 дает результат 1 2 3 5 6