Question

Цифры натурального числа поместить в массив в том же порядке, в каком они записаны в числа. ( турбо Паскаль)

Answer 1

Var j,n,i:longint;     
     a,b:array [1..1000] of integer;
begin         
         readln(n);// считываем число         
         i:=1;// начинаем с первого элемента массива
         while (n>0) do //пока n больше нуля
         begin
                a[i]:=n mod 10;  //тем самым выбираем последнюю цифру числа
                n:=n div 10; // откидываем последнюю цифру
                i:=i+1;// следующий элемент массива
         end;
                // по окончании в массиве a будет храниться наше число только
               // в обратном порядке
         i:=i-1;// теперь i равно длине числа +1 поэтому отнимаем 1
         for j:=i downto 1 do // с конца массива а до 1
         begin
                b[i-j+1]:=a[j]; // заполняем b в обратном порядке
         end;
         //теперь в массиве b хранится наше число в нужном порядке
         for j:=1 to i do
         begin
                       write(b[j],' ');
         end;
end.

Answer 2

В Turbo Pascal (или Pascal в целом) можно решить эту задачу, используя строки и массивы символов. Вот пример кода, который считывает натуральное число и помещает его цифры в массив символов в том порядке, в котором они записаны в числе:

pascalCopy code
program ExtractDigitsToArray;
var
  numStr: string;
  digits: array of Char;
  i: Integer;
begin
  Write('Введите натуральное число: ');
  ReadLn(numStr);

  // Выделение памяти под массив символов для цифр
  SetLength(digits, Length(numStr));

  // Копирование цифр из строки в массив символов
  for i := 1 to Length(numStr) do
  begin
    digits[i - 1] := numStr[i];
  end;

  // Вывод цифр из массива
  Write('Цифры в массиве: ');
  for i := 0 to High(digits) do
  begin
    Write(digits[i], ' ');
  end;
  WriteLn;
end.

Этот код сначала считывает натуральное число как строку, а затем создает массив символов для хранения цифр. Он затем перебирает символы в строке и копирует их в массив символов. Наконец, он выводит цифры из массива.