Найдите наименьшее натуральное число, у которого ровно 36 делителей (включая 1 и само...

Question

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

Comments

очередной любитель поучавствовать в олимпиадах чужим умом

Answer 1

Оптимизированно относительно предыдущего ответа.
Так и не понятно причем тут 36 в качестве делителя, потому не использовалось

var
    p, k, i: integer;

begin
    p := 2;
    while true do
    begin
        k := 2;
        for i := 2 to Floor(sqrt(p)) do
            if p mod i = 0 then
                if p div i = i then {случай полного квадрата}
                    k := k + 1
                else
                    k := k + 2;
        if k = 36 then break;
        p := p + 1;
    end;
    
    writeln(p);
end.

Comments

Ответ 1260 аналогично

---

а 180 не подходит?

---

распишите все его делители и проверьте сами

Answer 2

Var p,k,i:integer; f:boolean;
begin
 f:=false;
 p:=36;
 while not f do
  begin
  p:=p+1;
  k:=2;
  for i:=2 to p div 2 do
   if p mod i = 0 then k:=k+1;
  f:=k=36;
  end;
writeln(p);
end.

Результат:
1260

Comments

а 180 не подходит?

---

Нет, не подходит. У числа 180 18 делителей.

---

спасибо

---

В какой это программе сделано?

---

Скорее всего PascalABC.Net