Задача( сделать множеством), Дано число N вывести числа... Опции

[CormiX]

Здравствуйте! Необходима помощь в решении задачки:
Дано некоторое число N, вывести на экран числа из которих оно состоит.

Думаю нужно задать множество чисел от 0 до 9, и както проверять числа из которых состоит N, проверив принадлежность числа к N копировать его и вывести на экран и так с каждым пока не дойдеш до конца...Но легче сказать чем сделать. Помогите пожалуйста.

[Client]

uses crt;
var
   a:set of 0..9;
   b,c:longint;
   i:byte;
begin
     clrscr;
     a:=[0..9];
     readln(b);
     c:=abs(b);
     while c>0 do begin
           i:=c mod 10;
           a:=a-[i];
           c:=c div 10;
     end;
     for i:=0 to 9 do if not (i in a) then writeln(i);
     readkey;
end.

Тут я удаляю из множества, хотя можно сделать добавлением в множество

Сообщение отредактировано: Client - 9.03.2010 17:49