Question

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


Входные данные

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


Выходные данные

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


Примеры

входные данные

123

выходные данные

1 2 3
ТОЛЬКО ЧЕРЕЗ ПАСКАЛЬ АБС, без string.
ЦИКЛЫ FOR, WHILE
Если решение с интернета, то оно не засчитывается.

Answer 1

var N,t,k,N1:integer;

BEGIN

readln(N);

N1:=N;

k:=0;

while (N1 mod 10=0) do begin

k:=k+1;

N1:=N1 div 10;

end;

t:=0;

while N>0 do begin

t:=t*10 + (N mod 10);

N:=N div 10;

end;

while t>0 do begin

write(t mod 10,' ');

t:=t div 10;

end;

for N:=1 to k do

write('0 ');

end.

Answer 2

program Digits;

procedure foo(a: integer);

begin

 if a = 0 then exit

 else

   foo(a div 10);

 Print(a mod 10)

end;

var

 a: integer;

begin

 a := 12345;

 foo(a)

end.