Напишите программу, которая выводит на экран все числа числа, начиная с

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

Входные данные
Входная строка содержит естественное число N .

Выходные данные
Программа обязана вывести все цифры введённого числа в одной строке, начиная с первой. Цифры отделяются пробелами.

Образцы
входные данные
123
выходные данные
1 2 3
На паскале.

Задать свой вопрос
2 ответа
Можно так:

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 Alt;gt;0 do
   Begin
   B:=B*10+(A mod 10);
   A:= A div 10
   End;
While Blt;gt;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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт