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

Входные данные
Входная строка содержит неотрицательное число N .

Выходные данные
Программа должна вывести в столбик все цифры введённого числа, начиная с первой.

Примеры
входные данные
1234
выходные данные
1
2
3
4
На паскале.

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

Ниже приведён пример кода:

pascal
program PrintDigits;
procedure PrintInColumn(N: string);
var
  i: Integer;
begin
  for i := 1 to Length(N) do
    writeln(N[i]);
end;
var
  N: string;
begin
  // Ввод числа в виде строки
  readln(N);
  // Вызов процедуры для печати цифр в столбик
  PrintInColumn(N);
end.

Пояснение к коду

1. Определение процедуры PrintInColumn:

   • Процедура PrintInColumn принимает параметр N типа string. Это строковое представление числа, которое будет обработано посимвольно.
   • Внутри процедуры используется цикл for, который проходит от первой до последней позиции строки N.
   • На каждом шаге цикла текущий символ строки (т.е. цифра числа) выводится с помощью команды writeln, что позволяет распечатать каждую цифру на новой строке.

2. Основная программа:

   • Основная программа запрашивает ввод числа в виде строки и сохраняет его в переменной N.
   • Затем вызывается процедура PrintInColumn, которая выводит каждую цифру числа в столбик.

Пример работы программы

Входные данные:

yaml
1234

Выходные данные:

1
2
3
4

Объяснение работы программы с примером

Когда пользователь вводит число 1234, оно сохраняется в переменной N как строка. Процедура PrintInColumn обрабатывает эту строку, и цикл for проходит по всем символам строки, выводя их в столбик.