Question

Задайте с клавиатуры натуральное число из 10 знаков. Составьте одномерный массив из цифр этого числа в порядке их следования.

Answer 1

Ответ:

Могу дать программу с интернета нашёл на паскале для разложение массива по возрастанию (сам на си занимаюсь)

Объяснение:

const n=10;

Var a:array[1..n] of integer; i,j,b:integer;

Begin

 for i:=1 to n do read(a[i]);

 for i:=1 to n-1 do

  for j:=i+1 to n do

    if a[j]<a[i] then

      begin

       b:=a[i];

       a[i]:=a[j];

       a[j]:=b;

      end;

 for i:=1 to n do write(a[i],' ');

End.

Answer 2

Кроме того, постить решения из Интернет запрещено.

Answer 3

uses School; // стандартная библиотека школьника

begin

 var n := ReadInt64('Введи натуральное число');

 var a := n.Digits;

 a.Print

end.

Answer 4

Есть возможность скинуть решение через онлайн паскаль?:D