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

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

pascal
Копировать код
program DigitsFromFirst;
var
  n, temp, digit, count, i: integer;
begin
  write('Введите число: ');
  readln(n);
  { Определяем количество цифр }
  temp := n;
  count := 0;
  while temp > 0 do
  begin
    temp := temp div 10;
    count := count + 1;
  end;
  { Выводим цифры, начиная с первой }
  for i := count - 1 downto 0 do
  begin
    digit := n div trunc(exp(i * ln(10))) mod 10;
    write(digit, ' ');
  end;
  writeln;
end.

Как работает программа:

1. Пользователь вводит число n.

2. Цикл while temp > 0 определяет, сколько цифр в числе.

3. Затем цикл for проходит от самой первой цифры до последней.

4. Каждая цифра вычисляется с помощью выражения
   digit := n div trunc(exp(i * ln(10))) mod 10;,
   которое берёт нужную цифру числа.

5. Цифры выводятся через пробел.

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

yaml
Копировать код
Введите число: 5381
5 3 8 1

Эта программа корректно выводит все цифры введённого числа по порядку — начиная с первой.