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

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

Задать свой вопрос
Витя
Как всегда, упускается из виду, что число ВСЕГДА может делиться на 1 и само на себя. Учитывать ли эти два делителя при решении и выискать число с 8 остальными делителями, либо не учесть, и сыскать с 10?
Slava Ruchkovskij
И 2-ой вопрос - делители только обыкновенные либо составные тоже?
Егор
все
Мирослава Гребенникова
И 1 учитывается
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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт