Помогите написать программу паскаль, которая формирует массив, элементами которого являются цифры заданного натурального числа.

Question

Информатика

Аскольд

4 мая, 22:59

Помогите написать программу паскаль, которая формирует массив, элементами которого являются цифры заданного натурального числа.

+4

Ответы (1)

Знаете ответ?

Автоном · Answer 1

var

a: array of byte; / / char?

b, d: integer;

begin

readln (b) ;

SetLength (a, length (IntToStr (b))) ;

for d : = 0 to length (a) - 1 do

begin

a[d] : = b mod 10;

b : = b div 10;

end;

for d : = 0 to (length (a) - 1) do

write (a[d], ' ') ;

end.