Напишите программу на языке Паскаль: Пользователь вводит целое неотрицательное число. Необходимо определить, сколько

Тема урока: Подсчет количества различных чисел

Разъяснение: Для решения данной задачи на языке Паскаль можно использовать рекурсию и алгоритм "делить и властвовать". Мы можем рассматривать каждую цифру исходного числа по очереди и каждый раз составлять новое число, используя только оставшиеся цифры. Если каждый раз у нас получается новое число, то мы увеличиваем счетчик количества различных чисел. Поэтому нам понадобится вспомогательная функция, которая будет проверять, было ли число уже использовано в данной комбинации. Если число уже использовалось, то оно не будет добавлено в новую комбинацию.

Пример:

pascal

program CountDifferentNumbers;



var

    num: string;

    count: integer;



function IsNumberUsed(num: string; index: integer): boolean;

var

    i: integer;

begin

    for i := 1 to index-1 do

    begin

        if num[i] = num[index] then

        begin

            IsNumberUsed := true;

            exit;

        end;

    end;

    IsNumberUsed := false;

end;



procedure CountNumbers(num: string; index: integer; var count: integer);

var

    i: integer;

begin

    if index > Length(num) then

    begin

        count := count + 1;

        exit;

    end;

    for i := 1 to Length(num) do

    begin

        if not IsNumberUsed(num, i) then

        begin

            CountNumbers(num, index + 1, count);

        end;

    end;

end;



begin

    writeln("Введите целое неотрицательное число: ");

    readln(num);

    count := 0;

    CountNumbers(num, 1, count);

    writeln("Количество различных чисел: ", count);

end.

Совет: При решении задачи старайтесь внимательно следить за индексами и областями видимости переменных. Также, не забывайте о проверках на использование числа в данной комбинации.

Проверочное упражнение: Допустим, пользователь ввел число 112233. Сколько различных чисел можно составить из этого числа?