Множество.Верно ли, что в записи первого числа используються только цифры, содержащиеся во втором числе?

[MElvira]

Данны два числа.Верно ли, что в записи первого числа используются только цифры, содержащиеся во втором числе? Например, 1246 и 5112648 - верно, 1246 и 54141 - неверно.

[Serge_Bliznykov]

задача очень простая.
берём второе число.
шаг 1. все его цифры (по одной) помещаем в множество (изначальное оно пустое).

шаг 2. потом перебираем по цифрам первое число, каждую цифру проверяем, если данная цифра в заполненном на шаге 1 множестве. Если есть и дошли до конца цикла - сообщение "Верно", если какой-то цифры нет в множестве - сообщение "Неверно" и выход из цикла.

всё.

что не получается?

[MElvira]

Это я все понимаю, у меня не получаеться ввести само множество с клавиатуры.

[Utkin]

Так ты вводи число и проверяй его цифры. Зачем вводить множество?

[MElvira]

Сообщение от Utkin

Так ты вводи число и проверяй его цифры. Зачем вводить множество?

у меня ведь тема множество поэтому мне надо делать через множество все..или я что то не понимаю?

[Utkin]

У тебя будет сначала пустое множество. Потом в числе нужно смотреть цифры. Я точно не помню, но вроде как проверку отдельных цифр в числе лучше делать через строки/символы и соответственно я бы завел символьное множество. Куда просто в цикле пропихивал бы цифры из числа. Поскольку это множество, то лишние цифры все равно туда не влезут.

[MElvira]

Может покажешь на примере??

[Utkin]

В Паскале есть str

Str(x, S) преобразует число x в строковый формат. Здесь x – любое числовое выражение, S – строковая переменная. В процедуре есть возможность задавать формат числа x. Например, str(x: 8: 3, S), где 8 – общее число знаков в числе x, а 3 – число знаков после запятой

Преобразуем так число в строку, допустим s.
Теперь имеем множество a: set of char; и a:=[];. Теперь чтобы добавить туда символ из s:
Include(a, s[i]);

Процедура Include
procedure Include(var S: set of T; I: T);
Добавляет к множеству S подмножество I.
S - переменная типа-множества любого допустимого базового типа Т;
I - выражение типа Т.

естественно i в нашем примере переменная цикла, так как цифр в числе может быть много.
Ну а вторая часть должны быть понятна.

[Serge_Bliznykov]

В Паскале есть str

число "разбирать" на отдельные числа лучше (скажем так - "честнее") с помощью операции целочисленного деления.

вот так, например, можно заполнить начальное множество:

var
  N: LongInt;
  OneDigit: byte;
  AllDigits : set of byte;
begin
  WriteLn('Введите натуральное число N:');
  Readln(N);

  if N < 0 then begin
    WriteLn('натуральное - это положительное! А Вы ввели отрицательное! Прощайте...');
    readln;
    Halt(1);
  end;

  AllDigits := []; {иницилизируем множество ПУСТЫМ множеством}

  { перебираем цифры и заносим их в наше множество }
  repeat
    OneDigit := N mod 10;
    Include(AllDigits, OneDigit);

    N := N div 10; {отбрасываем правую цифру, как отработанную}
  until N = 0;  {повторяем, пока число не станет равным нулю}

  WriteLn('Готово. А теперь нужно проверить, можно ли другое число составить...');

  ТУТ ВАШ КОД по проверке первого числа

  Readln;

end.

[Utkin]

скажем так - "честнее"

Верно, но мой вариант наглядней и понятней