Какая программа на Паскале ищет числа с ровно 4 различными делителями среди чисел в интервале [126849; 126871

Предмет вопроса: Поиск чисел с 4 делителями в программе на Паскале.

Пояснение:
Для того чтобы решить данную задачу, нужно написать программу на языке Паскаль, которая будет проверять каждое число в заданном интервале [126849; 126871] на наличие ровно 4 различных делителей. Затем, программа должна выводить два наибольших делителя найденных чисел в порядке возрастания.

Программа будет состоять из двух основных частей: цикла для перебора чисел в интервале и проверки каждого числа на различные делители, а также массива для хранения найденных чисел с 4 делителями.

Вот пример программы на языке Паскаль, решающей данную задачу:

program FindNumbers;



const

  startNumber = 126849;

  endNumber = 126871;



var

  i, j, count, number: integer;

  divisors: array[1..endNumber - startNumber + 1] of integer;



begin

  count := 0;



  for number := startNumber to endNumber do

  begin

    // Подсчитываем количество различных делителей числа

    for i := 1 to number do

    begin

      if number mod i = 0 then

        count := count + 1;

    end;



    // Если число имеет ровно 4 делителя, то добавляем его в массив

    if count = 4 then

    begin

      divisors[count] := number;

      count := 0;

    end;

  end;



  // Сортируем массив divisors в порядке возрастания

  for i := 1 to 3 do

  begin

    for j := i+1 to 4 do

    begin

      if divisors[i] > divisors[j] then

      begin

        count := divisors[i];

        divisors[i] := divisors[j];

        divisors[j] := count;

      end;

    end;

  end;



  // Выводим два наибольших делителя найденных чисел в порядке возрастания

  writeln("Наибольшие делители:");

  writeln(divisors[3]);

  writeln(divisors[4]);



end.

Совет:
Для лучшего понимания программы и разбора задачи, полезно иметь представление о том, что такое делитель числа и какие бывают варианты делителей (1, само число, числа, на которое оно делится без остатка). Также полезно понимать работу цикла и использование массивов.

Дополнительное упражнение:
Напишите программу на языке Паскаль, которая будет выводить все числа с ровно 3 различными делителями в заданном интервале [1; 100].