Question

Turbo pascal. Из чисел от 1 до 100 вывести только те у которых ровно 10 делителей

Answer 1

Ответ:

48 80

Объяснение:

program abcd;

var

 i, j, k: shortint;

begin

 for i := 1 to 100 do

 begin

   k := 2;

   for j := 2 to i div 2 do

     if i mod j = 0 then Inc(k);

   if k = 10 then Write(i, ' ');

 end;

end.

Answer 2

Для решения этой задачи в Turbo Pascal вы можете использовать следующий код:

pascalCopy code
program TenDivisors;

var
  num, divisorCount, divisor: integer;

begin
  for num := 1 to 100 do
  begin
    divisorCount := 0;

    for divisor := 1 to num do
    begin
      if (num mod divisor) = 0 then
        Inc(divisorCount);
    end;

    if divisorCount = 10 then
      writeln(num);
  end;

  readln;
end.

В этом коде мы используем два вложенных цикла. Внешний цикл проходит по числам от 1 до 100. Внутренний цикл проверяет каждое число от 1 до текущего числа и увеличивает счетчик делителей divisorCount, если число является делителем текущего числа.

После завершения внутреннего цикла мы проверяем значение divisorCount для текущего числа. Если оно равно 10, то выводим число на экран с помощью writeln(num).

Этот код выведет все числа от 1 до 100, у которых ровно 10 делителей.