Напишите программу, которая выводит на экран все цифры числа, начиная с первой. входные данные входная строка содержит натуральное число n . выходные данные программа должна вывести все цифры введённого числа в одной строке, начиная с первой. цифры отделяются пробелами. примеры входные данные 123 выходные данные 1 2 3 на паскале.
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.
PascalABC.NET 3.2, сборка 1399 от 08.03.2017
Внимание! Если программа не работает, обновите версию!
begin
ReadlnString.Println(' ')
end.
Пример
123
1 2 3