Задача.
С клавиатуры вводится число. Проверить, участвуют ли в записи числа все цифры. При решении использовать множества.
Есть вариант
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.
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.
Lapp, а может проще вводить не число, а строку?