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

Question

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

Comments

А в чём вообще вопрос? Составить программу? На каком языке? В порядке следования по возврастанию?

---

Язык Pascal

---

По возрастанию получается

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]

      begin

       b:=a[i];

       a[i]:=a[j];

       a[j]:=b;

      end;

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

End.

Comments

Ну причем тут возрастание, если сказано в порядке следования?

---

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

Answer 2

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

begin

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

 var a := n.Digits;

 a.Print

end.

---

Comments

Можно вводить от 1 до 18 цифр

---

В онлайн паскале задача почему-то не работает

---

Потому что он не PascalABC.NET

---

Кроме того, разных паскалей - 6 штук и даже онлайновые не все одинаковы.

---

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

---

Вы невнимательно прочли то, что я написал выше. Они - онлайновые - тоже разные. Это во-первых. Во-вторых, не вижу смысла решать дважды одну задачу лишь потому, что Вы в задании не указали требуемую Вам версию языка. Это Ваша недоработка и за нее не должны расплачиваться своим трудом другие.