Составить программу которая находит наименьшее трехзначное число имеющее 10 делителей...

Question

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

Comments

Как всегда, упускается из виду, что число ВСЕГДА может делиться на 1 и само на себя. Учитывать ли эти два делителя при решении и находить число с 8 остальными делителями, или не учитывать, и находить с 10?

---

И второй вопрос - делители только простые или составные тоже?

---

все

---

И 1 учитывается

Answer 1

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var i,k,n:integer;
  for i:=100 to 999 do begin
    k:=0;
    for var j:=2 to i div 2 do
      if i mod j =0 then inc(k);
    if k=8 then break
    end;
  if k=8 then Writeln(i)
  else Writeln('Нет искомых чисел')
end.

Результат:
112