program Pascal_160028;
{ Основание системы счисления }
const
CBase=10;
{ Диапазон цифр в числе }
type
TDigits=0..CBase-1;
var
t,i:TDigits;
DigitsSet,Match:set of TDigits; { Множества присутствующих цифр
и повторно встретившихся }
N:LongInt;
begin
{ Вводим число }
Write('Enter number:');
ReadLn(N);
{ Пока есть цифры }
while N<>0 do begin
{ Берем цифру }
t:=N mod CBase;
{ Отсекаем последнюю }
N:=N div CBase;
{ Если уже встречалась }
if t in DigitsSet then Match:=Match+[t] { Добавим в повторно встретившиеся }
else DigitsSet:=DigitsSet+[t]; { Добавим в первый раз встретившиеся }
end;
{ Если нет повторно встретившихся }
if Match=[] then WriteLn('All digits are different')
else begin
{ Если есть повторы печатаем их }
Write('Not all digits are different: [');
for i := 0 to CBase-1 do
if i in Match then Write(i,',');
WriteLn(#8,']');
end;
ReadLn;
end.
program Pascal_160028;
{ Основание системы счисления }
const
CBase=10;
{ Диапазон цифр в числе }
type
TDigits=0..CBase-1;
var
t:TDigits;
DigitsSet:set of TDigits;
N:LongInt;
Different:Boolean;
begin
{ Вводим число }
Write('Enter number:');
ReadLn(N);
{ Пока есть цифры }
Different:=true;
while (N<>0) and Different do begin
{ Берем цифру }
t:=N mod CBase;
{ Отсекаем последнюю }
N:=N div CBase;
{ Если уже встречалась }
if t in DigitsSet then Different:=false
else DigitsSet:=DigitsSet+[t]; { Добавим в первый раз встретившиеся }
end;
{ Если нет повторно встретившихся }
if Different then WriteLn('All digits are different')
else Write('Not all digits are different');
ReadLn;
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.