Напишите программу на Паскале, которая будет находить числа в интервале [33333;55555], которые делятся на сумму своих

Тема вопроса: Программирование на Паскале

Разъяснение: Программа на Паскале - это последовательность инструкций, написанная на языке программирования Паскаль, которая выполняет определенные действия. Для решения данной задачи мы можем использовать цикл для перебора чисел в интервале [33333;55555]. Для каждого числа будем находить сумму его простых делителей и проверять, делится ли число на эту сумму без остатка. Если делится, и сумма простых делителей превышает 250, то выводим число и сумму его простых делителей.

Демонстрация:

program FindNumbers;

  var

    number, divisorSum, i: integer;

  begin

    for number := 33333 to 55555 do

    begin

      divisorSum := 0;

      for i := 2 to number div 2 do

      begin

        if (number mod i = 0) then

          divisorSum := divisorSum + i;

      end;

      

      if (divisorSum > 250) and (number mod divisorSum = 0) then

        writeln(number, " - ", divisorSum);

    end;

  end.

Совет: Перед написанием программы, пожалуйста, ознакомьтесь с основами языка программирования Паскаль и пониманием простых чисел и делителей.

Задание: Напишите программу на Паскале, которая будет находить все простые числа в интервале от 1 до 100 и выводить их на экран.