Question

Напишите программу, которая выводит на экран все цифры числа, начиная с первой. входные данные входная строка содержит натуральное число n . выходные данные программа должна вывести все цифры введённого числа в одной строке, начиная с первой. цифры отделяются пробелами. примеры входные данные 123 выходные данные 1 2 3 на паскале.

Answer 1

Можно так:

Var S:string;
i:integer;
Begin
Read(S);
For i:= 1 to Length(S) do
    Write(S[i],' ')
End.

И так:

Var A,B:integer;
Begin
Read(A);
B:=0;
While A<>0 do
   Begin
   B:=B*10+(A mod 10);
   A:= A div 10
   End;
While B<>0 do
   Begin
   Write(B mod 10,' ');
   B:=B div 10
   End;
End.

Answer 2

А еще так можно:

PascalABC.NET 3.2, сборка 1399 от 08.03.2017
Внимание! Если программа не работает, обновите версию!

begin
 ReadlnString.Println(' ')
end.

Пример
123
1 2 3