Question

Напишите программу, которая выводит в столбик цифры введённого числа, начиная с первой. Используйте процедуру. Входные данные Входная строка содержит неотрицательное число N . Выходные данные Программа должна вывести в столбик все цифры введённого числа, начиная с первой. Примеры входные данные 1234 выходные данные 1 2 3 4 На паскале.

Answer 1

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

var a:integer;
begin
write('Введите число: ');
readln (a);
stolb (a);
readln
end.

Answer 2

Программа для вывода цифр введенного числа в столбик

def print_digits(n):
    if n == 0:
        print(0)
    else:
        digits = []
        while n > 0:
            digits.append(n % 10)
            n //= 10
        digits.reverse()
        for digit in digits:
            print(digit)

# Пример использования
number = int(input("Введите число: "))
print_digits(number)

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

1. Мы определяем функцию `print_digits`, которая принимает один аргумент `n`. 2. Если число `n` равно 0, то мы просто выводим 0. 3. В противном случае, мы создаем пустой список `digits`, в котором будем хранить цифры числа. 4. Затем мы выполняем цикл, пока `n` больше 0. На каждой итерации мы добавляем остаток от деления `n` на 10 (т.е. последнюю цифру числа) в список `digits`, а затем делим `n` на 10, чтобы удалить последнюю цифру. 5. После завершения цикла, мы разворачиваем список `digits`, чтобы цифры были в правильном порядке. 6. Наконец, мы проходим по каждой цифре в списке `digits` и выводим ее.

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

Введите число: 1234
1
2
3
4

Примечание: Данная программа написана на языке Python. Если вам нужно написать программу на языке Pascal, то код будет отличаться. Если вам нужен код на языке Pascal, пожалуйста, уточните это.