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

1. Определение переменных: Нам понадобятся переменные для хранения трех целых чисел и счетчика положительных цифр.
2. Ввод данных: Пользователь должен ввести три целых числа.
3. Обработка каждого числа: Для каждого числа мы будем извлекать его цифры и проверять, являются ли они положительными.
4. Вывод результата: После обработки всех цифр мы выведем количество положительных цифр.

Теперь давайте рассмотрим пример кода, который выполняет эту задачу:

program CountPositiveDigits;

var
    num1, num2, num3: integer;
    count: integer;
    digit: integer;
    i: integer;

begin
    count := 0;  { Инициализируем счетчик положительных цифр }

    { Ввод трех целых чисел }
    writeln('Введите три целых числа:');
    readln(num1);
    readln(num2);
    readln(num3);

    { Объединяем числа в массив для удобства обработки }
    for i := 1 to 3 do
    begin
        case i of
            1: digit := num1;
            2: digit := num2;
            3: digit := num3;
        end;

        { Обработка текущего числа }
        while digit <> 0 do
        begin
            { Извлекаем последнюю цифру }
            digit := digit mod 10;

            { Проверяем, является ли цифра положительной }
            if digit > 0 then
                count := count + 1;

            { Убираем последнюю цифру из числа }
            digit := digit div 10;
        end;
    end;

    { Выводим количество положительных цифр }
    writeln('Количество положительных цифр: ', count);
end.

В этом коде мы:

• Инициализируем переменные для трех чисел и счетчика.
• Запрашиваем у пользователя ввод трех целых чисел.
• Используем цикл для обработки каждого числа, извлекая его цифры.
• Проверяем, положительная ли каждая цифра, и увеличиваем счетчик, если это так.
• В конце выводим общее количество положительных цифр.

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