Напишите процедуру, которая выводит на экран в столбик все цифры переданного ей числа, начиная с первой.

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

pascal
Копировать код
procedure PrintDigits(num: Integer);
var
  digit: Integer;
begin
  while num > 0 do
  begin
    digit := num mod 10;  // получаем последнюю цифру
    WriteLn(digit);       // выводим цифру на экран
    num := num div 10;    // удаляем последнюю цифру из числа
  end;
end;

Процедура PrintDigits принимает целое число num, и в цикле извлекает и выводит его цифры. Для этого используется операция деления по модулю (num mod 10), которая извлекает последнюю цифру, и операция целочисленного деления (num div 10), которая удаляет эту цифру из числа.

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

Вот пример с использованием массива для вывода цифр в правильном порядке:

pascal
Копировать код
procedure PrintDigits(num: Integer);
var
  digits: array of Integer;
  i: Integer;
begin
  // Разделяем число на цифры
  while num > 0 do
  begin
    SetLength(digits, Length(digits) + 1);  // увеличиваем размер массива
    digits[High(digits)] := num mod 10;     // сохраняем цифру в массив
    num := num div 10;                      // удаляем последнюю цифру
  end;
  
  // Выводим цифры в обратном порядке
  for i := High(digits) downto 0 do
  begin
    WriteLn(digits[i]);
  end;
end;

Здесь мы сначала сохраняем цифры в массив, а затем выводим их в обратном порядке.