128574, умноженное на 2, даёт 257148, состоящее из цифр исходного числа в другом порядке. напиши программу [color=#FF0000]на Pascal, [/color]которая находит и выводит минимальное натуральное число, которое при умножении на 2, 3, 4, 5 и 6 даёт числа, состоящие из перестановки тех же цифр, что и исходное

Приведу программу на Pascal, которая решает данную задачу.

program find_number;
var
  i, j, k, l, m: integer;
  num, num2, num3, num4, num5, num6: integer;
begin
  for i := 1 to 9 do
  begin
    for j := 0 to 9 do
    begin
      for k := 0 to 9 do
      begin
        num := 100 * i + 10 * j + k;
        num2 := 2 * num;
        num3 := 3 * num;
        num4 := 4 * num;
        num5 := 5 * num;
        num6 := 6 * num;
        if (num2 > 999) or (num3 > 999) or (num4 > 999) or (num5 > 999) or (num6 > 999) then
          continue;
        l := num2 mod 10;
        num2 := num2 div 10;
        m := num2 mod 10;
        num2 := num2 div 10;
        if (num2 = i) and (m = j) and (l = k) then
        begin
          l := num3 mod 10;
          num3 := num3 div 10;
          m := num3 mod 10;
          num3 := num3 div 10;
          if (num3 = i) and (m = j) and (l = k) then
          begin
            l := num4 mod 10;
            num4 := num4 div 10;
            m := num4 mod 10;
            num4 := num4 div 10;
            if (num4 = i) and (m = j) and (l = k) then
            begin
              l := num5 mod 10;
              num5 := num5 div 10;
              m := num5 mod 10;
              num5 := num5 div 10;
              if (num5 = i) and (m = j) and (l = k) then
              begin
                l := num6 mod 10;
                num6 := num6 div 10;
                m := num6 mod 10;
                num6 := num6 div 10;
                if (num6 = i) and (m = j) and (l = k) then
                begin
                  writeln('The required number is ', num);
                  readln;
                  exit;
                end;
              end;
            end;
          end;
        end;
      end;
    end;
  end;
end.

Краткое описание программы: мы перебираем все возможные комбинации трехзначных чисел, умножаем их на 2, 3, 4, 5 и 6, и проверяем, являются ли полученные числа перестановкой исходного числа. Если находим такое число, которое удовлетворяет условию, выводим его и завершаем программу.