Подпрограммы/Паскаль

[Базиля]

В общем условие задачи:
вывести те цифры которые не входят в десятичную запись числа.
Алгоритм моих действий:
в одномерный массив ввожу цифры и этим самым представляю его как бы числом. В подпрограмме нужно как-то проверить каких цифр не хватает в числе. ВОт думаю может нужно упорядочить массив по возрастанию, но вот не знаю как дальше проверить каких цифр нет в числе...
P.s. Хочется решить эту задачу с помощью массива, это вообще реально?

[Alex_FF]

а число в каком формате вводится? в таком 123.4567 ? и число какое? целое?

[Базиля]

Да число целое, например:
123456
В этом числе на хватает чисел 78910
что-то типа того.
Объясни пожалуйста просто алгоритм действий)
вот не понимаю как это сделать если я введу
2562341
и он должен вывести
78910....

[Alex_FF]

это для любых чисел:

var
  S: Set of Char;
  N: String;
  I: Integer;
  J: Char;

begin
  ReadLn(N); { считываешь число как строку }
  S := [];
  for I := 1 to Length(N) do
    Include(S, N[I]);
  WriteLn;
  WriteLn('Нет таких цифр:');
  for J := '0' to '9' do
    if not (J in S) then
      Write(J, ' ');
  ReadLn;
  ReadLn;
end.

это для целых:

var
  S: Set of Byte;
  N: Integer;
  I: Integer;

begin
  ReadLn(N);
  S := [];
  while N <> 0 do
  begin
    Include(S, N mod 10);
    N := N div 10;
  end;
  WriteLn;
  WriteLn('Нет таких цифр:');
  for I := 0 to 9 do
    if not (I in S) then
      Write(I, ' ');
  ReadLn;
  ReadLn;
end.

[Базиля]

А можешь пожалуйста без множеств?)
Просто препод докапается, мы их еще не прошли по программе)

[Alex_FF]

Алгоритм такой: перебираешь число по цифрам и добавляешь его цифры в множество. Потом перебираешь числа от 0 до 9, и если это число есть в множестве, то ничего не делаешь, если нету - печатаешь его.

[Базиля]

А без множества не обойтись?

[Alex_FF]

заменил множество на массив...

var
  S: Array[0..9] of Byte;
  N: Integer;
  I: Integer;

begin
  for I := 0 to 9 do
    S[I] := 0;
  ReadLn(N);
  while N <> 0 do
  begin
    S[N mod 10] := 1;
    N := N div 10;
  end;
  WriteLn;
  WriteLn('Нет таких цифр:');
  for I := 0 to 9 do
    if S[I] = 0 then
      Write(I, ' ');
  ReadLn;
  ReadLn;
end.

[Alex_FF]

Сообщение от Базиля

Да число целое, например:
123456
В этом числе на хватает чисел 78910
что-то типа того.
Объясни пожалуйста просто алгоритм действий)
вот не понимаю как это сделать если я введу
2562341
и он должен вывести
78910....

это как так? в десятичной системе счисления нет цифры 10! Поэтому на 2562341 программа должна вывести 0 7 8 9

[Базиля]

это как так? в десятичной системе счисления нет цифры 10! Поэтому на 2562341 программа должна вывести 0 7 8 9

Ну я глуплю=) Уже ничего не соображаю) Спасибо тебе, помог. Щас будут с этим алгоритмом решать эту задачу с помощью подпрограммы.