Регистрация
Войти
Стать экспертом Правила
Информатика

Напишите программу, которая выводит на экран все цифры числа, начиная с первой.Входные данныеВходная строка содержит натуральное число 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.

70
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам