Question

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