Напишите программу для поиска чисел с максимальным количеством различных делителей среди целых чисел на числовом

Пояснение:
Чтобы решить данную задачу, мы должны написать программу, которая будет перебирать все числа в заданном числовом отрезке [586132; 586430] и находить количество делителей каждого числа. Затем, мы сравним это количество с предыдущим максимумом и, если оно больше, обновим максимальное количество делителей и запомним это число. После завершения перебора, мы найдем минимальное и максимальное число с максимальным количеством делителей и выведем количество делителей и два наибольших делителя каждого из этих чисел в порядке убывания.

Дополнительный материал:

pascal

program MaxDivisors;

var

  i, j, num, maxDivisors, currentDivisors: integer;

  maxNum, minNum: integer;

begin

  maxDivisors := 0;

  maxNum := 0;

  minNum := 0;



  for num := 586132 to 586430 do

  begin

    currentDivisors := 0;



    for i := 1 to num do

    begin

      if num mod i = 0 then

        Inc(currentDivisors);

    end;



    if currentDivisors > maxDivisors then

    begin

      maxDivisors := currentDivisors;

      maxNum := num;

    end;



    if minNum = 0 then

      minNum := num;

      

    if currentDivisors >= maxDivisors then

      minNum := num;

  end;



  writeln("Минимальное число с максимальным количеством делителей:", minNum);

  writeln("Максимальное число с максимальным количеством делителей:", maxNum);

  writeln("Количество делителей минимального числа:", maxDivisors);

  writeln("Два наибольших делителя минимального числа:");

  

  for j := minNum div 2 downto 1 do

  begin

    if minNum mod j = 0 then

    begin

      writeln(j);

      break;

    end;

  end;

  

  for j := minNum div 2 downto 1 do

  begin

    if (minNum mod j = 0) and (j <> minNum div j) then

    begin

      writeln(minNum div j);

      break;

    end;

  end;

  

  writeln("Два наибольших делителя максимального числа:");

  

  for j := maxNum div 2 downto 1 do

  begin

    if maxNum mod j = 0 then

    begin

      writeln(j);

      break;

    end;

  end;

  

  for j := maxNum div 2 downto 1 do

  begin

    if (maxNum mod j = 0) and (j <> maxNum div j) then

    begin

      writeln(maxNum div j);

      break;

    end;

  end;

end.

Советы:
1. Прежде чем приступать к написанию программы, важно полностью понять условие задачи, чтобы сформулировать план решения.
2. Используйте вложенные циклы для перебора всех чисел и их делителей.
3. Используйте переменную для хранения максимального количества делителей и соответствующего числа.
4. Выведите результаты в нужном формате, следуя условиям задачи.

Упражнение: Напишите программу для поиска числа с максимальным количеством делителей среди чисел от 1 до 100. Выведите это число и количество его делителей в формате: "Число X имеет Y делителей".