Задача на множества, Вроде просто и в то же время не просто Опции

[dog]

Задача.

С клавиатуры вводится число. Проверить, участвуют ли в записи числа все цифры. При решении использовать множества.

Есть вариант

PROGRAM PRP4;

VAR

digits: SET OF BYTE;
number:BYTE;

BEGIN
    digits:=[0..9];
    WRITELN('Введте число');
    READLN(number);
    IF number IN digits THEN
       WRITELN('В записи участвуют все цифры')
    ELSE
       WRITELN('В записи не участвуют все цифры');
END.

Подскажите как правильно?

[Lapp]

Подскажите как правильно?

примерно так:

const
  digits: set of byte = [0..9];

var
  number: LongInt;
  d: byte;

begin
  { input number }
  number:=Abs(number);  { just in case }
  repeat
    d:= number mod 10;
    number:= number div 10;
    digits:= digits - [d]
  until number=0;
  if digits=[] then WriteLn('All the digits are in use') else WriteLn('Some digits not used');
  ReadLn
end.

Я не проверял.

dog, а чего ты не отвечаешь, когда тебе пишут? грустно как-то слышать молчание..