Question

Срочно)))))
Найдите наименьшее натуральное число, у которого ровно 32 делителя (включая 1 и само число 32). Например, у числа 6 четыре делителя: 1, 2, 3, 6. В качестве ответа укажите одно натуральное число.

Answer 1

840, для решения писал программу

Answer 2

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

function KolDiv(n:integer):integer;
begin
  Result:=0;
  for var i:=2 to n div 2 do
    if n mod i=0 then Result+=1
end;

begin
  var n:=1;
  while KolDiv(n)<>30 do n+=1; // 30 - это без 1 и самого числа
  Writeln(n)
end.

Результат
840