Question

Напечатать в возрастающем порядке все цифры, не входящие в запись данного натурального числа ПОМОГИТЕ РЕШИТЬ В ПАСКАЛЕ

Answer 1

===== PascalABC.NET =====

begin

 var h := HSet(Range(0,9));

 var n := Abs(ReadInteger('Введите целое число:'));

 while n > 0 do

 begin

   h.Remove(n mod 10);

   n := n div 10

 end;

 h.Println

end.

Answer 2

Для того чтобы напечатать все цифры, не входящие в запись данного натурального числа в возрастающем порядке на языке Pascal, нужно выполнить следующие шаги: 1. Введите данное натуральное число с клавиатуры. Допустим, это число будет храниться в переменной `n`. 2. Создайте массив или список (в зависимости от вашего выбора) для хранения цифр, которые не входят в запись числа. Пусть этот массив называется `digits`. 3. Инициализируйте переменную `i` равной 0. Она будет использоваться для прохода через все цифры от 0 до 9. 4. В цикле пройдитесь по всем цифрам от 0 до 9. Для каждой цифры проверьте, входит ли она в запись числа `n`. Для этого можно преобразовать число `n` в строку и проверить, содержит ли строка символ цифры, которую мы рассматриваем. 5. Если цифра не входит в запись числа `n`, то добавьте её в массив `digits`. 6. Увеличьте значение переменной `i` на 1. 7. Повторяйте шаги 4-6 до тех пор, пока `i` не достигнет значения 9 (пройдут все возможные цифры). 8. После выхода из цикла у вас будет массив `digits`, содержащий все цифры, не входящие в запись числа `n`. 9. Отсортируйте массив `digits` в возрастающем порядке. 10. Выведите отсортированный массив `digits` на экран. Вот пример кода на Pascal, который реализует эту логику: ```pascal program PrintNonIncludedDigits; var n, i: integer; digits: array[0..9] of boolean; begin writeln('Введите натуральное число: '); readln(n); // Инициализация массива digits for i := 0 to 9 do digits[i] := true; // Проверка цифр, входящих в запись числа while n > 0 do begin digits[n mod 10] := false; n := n div 10; end; // Вывод цифр, не входящих в запись числа writeln('Цифры, не входящие в запись числа:'); for i := 0 to 9 do begin if digits[i] then writeln(i); end; end. ``` Этот код позволит вам ввести натуральное число, найти все цифры, которые не входят в его запись, и вывести их в возрастающем порядке.