Question

Напишите процедуру которая выводит на экран в столбик все цифры переданного ей числа начиная с 1-ой. Пример 12341 234

Answer 1

procedure print(a: integer);
var
  i: integer;
  s: string;
begin
  str(a, s);
  for i := 1 to length(s) do
    writeln(s[i]);
end;

Answer 2

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

pythonCopy code
def print_digits(number):
    if number < 0:
        number = abs(number)
    digits = [int(digit) for digit in str(number)]
    
    for i, digit in enumerate(digits, start=1):
        print(f"{i}-я цифра: {digit}")

# Пример использования:
number = 12341
print_digits(number)

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