Давайте разберем каждую из задач по отдельности и напишем для них программы на языке Паскаль.

Для решения этой задачи нам нужно будет использовать цикл, который будет проходить по всем числам от A до B и вычислять произведение каждого из них. Вот шаги для написания программы:

1. Сначала объявим переменные для хранения значений A, B и произведения.
2. Считаем произведение целых чисел от A до B.
3. Выводим результат на экран.

Вот пример кода:

program ProductFromAToB;
var
    A, B, i, product: Integer;
begin
    Write('Введите A: ');
    ReadLn(A);
    Write('Введите B: ');
    ReadLn(B);
    
    product := 1; // Инициализируем произведение единицей
    for i := A to B do
    begin
        product := product * i; // Умножаем текущее значение произведения на i
    end;
    
    WriteLn('Произведение целых чисел от ', A, ' до ', B, ' равно ', product);
end.

Для этой задачи нам нужно будет поочередно извлекать каждую цифру из числа A и суммировать их. Вот шаги для решения:

1. Объявим переменные для хранения числа A и суммы цифр.
2. Используем цикл для извлечения цифр из числа.
3. Выводим сумму на экран.

Вот пример кода:

program SumOfDigits;
var
    A, sum, digit: Integer;
begin
    Write('Введите A: ');
    ReadLn(A);
    
    sum := 0; // Инициализируем сумму нулем
    while A > 0 do
    begin
        digit := A mod 10; // Извлекаем последнюю цифру
        sum := sum + digit; // Добавляем цифру к сумме
        A := A div 10; // Убираем последнюю цифру из числа
    end;
    
    WriteLn('Сумма цифр равна ', sum);
end.

Для решения этой задачи нам нужно будет перебрать все трехзначные числа и проверять, равно ли произведение их цифр заданному N. Вот шаги для решения:

1. Объявим переменные для хранения N, счетчика и текущего трехзначного числа.
2. Используем цикл для перебора всех трехзначных чисел от 100 до 999.
3. Для каждого числа вычисляем произведение его цифр и сравниваем с N.
4. Считаем количество таких чисел и выводим результат.

Вот пример кода:

program CountThreeDigitNumbers;
var
    N, count, i, digit1, digit2, digit3, product: Integer;
begin
    Write('Введите N: ');
    ReadLn(N);
    
    count := 0; // Инициализируем счетчик нулем
    for i := 100 to 999 do
    begin
        digit1 := i div 100; // Первая цифра
        digit2 := (i div 10) mod 10; // Вторая цифра
        digit3 := i mod 10; // Третья цифра
        
        product := digit1 * digit2 * digit3; // Вычисляем произведение цифр
        
        if product = N then
            count := count + 1; // Увеличиваем счетчик, если произведение равно N
    end;
    
    WriteLn('Количество трехзначных чисел, произведение цифр которых равно ', N, ' равно ', count);
end.

Теперь у вас есть программы для всех трех задач. Вы можете запустить их в среде разработки Паскаль и протестировать с разными входными данными. Если у вас есть вопросы или что-то неясно, не стесняйтесь спрашивать!