Консультация № 176740
17.02.2010, 22:16
0.00 руб.
0 4 1
добрый вeчeр экспeрты!
Данная задачам по множествам.
Дана строка.
Напечать в возрастающем порядке,не входящие в запись данного натурального числа.

Обсуждение

давно
Профессор
401888
1232
17.02.2010, 22:50
общий
Может дано число и нужно найти цифры, не входящие в запись этого числа?
Неизвестный
18.02.2010, 00:13
общий
Пупорев Юрий Борисович:
нaпримeрe покaжитe пожaлуйстa
Неизвестный
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.
давно
Профессор
401888
1232
18.02.2010, 13:17
общий
atifegas1204, Это уж Вы пожалуйста на примере покажите что Вам нужно, мне лично это не нужно.
Форма ответа