18.02.2010, 00:55
общий
это ответ
Здравствуйте, atifegas1204.
Условие задачи явно засекречено, но как задача получена - так она и решена (см. приложение)
Приложение:
{
Дана строка.
Напечать в возрастающем порядке числа, не входящие в запись данного натурального числа.
}
Uses
Crt;
Var
St: String;
SetSt: Set of Char;
ch: Char;
begin
ClrScr;
Write('St = ');
ReadLn(St);
SetSt := [];
for ch:='0' to '9' do
if (Pos(ch, St) > 0) then
Include(SetSt, ch);
Write('Not found: "');
for ch:='0' to '9' do
if Not (ch in SetSt) then
Write(ch);
WriteLn('"');
WriteLn('Done. Press any key...');
readkey;
end.