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

Конечно! Вот решение задачи:

pascal

program FindNumbers;



var

  number, divisor, primeDivisorSum, i: integer;

  isPrime: boolean;



begin

  for number := 33333 to 55555 do

  begin

    primeDivisorSum := 0;

    

    // Ищем делители числа number

    for divisor := 2 to number - 1 do

    begin

      if number mod divisor = 0 then

      begin

        // Проверяем, является ли делитель простым числом

        isPrime := true;

        for i := 2 to trunc(sqrt(divisor)) do

        begin

          if divisor mod i = 0 then

          begin

            isPrime := false;

            break;

          end;

        end;

        

        if isPrime then

          primeDivisorSum := primeDivisorSum + divisor;

      end;

    end;

    

    if primeDivisorSum > 250 then

      writeln("Число ", number, ", Сумма простых делителей: ", primeDivisorSum);

  end;

end.

Давайте теперь пошагово разберем это решение.

1. Мы используем цикл `for` для перебора всех чисел в интервале [33333;55555]. Переменная `number` будет принимать значения от 33333 до 55555.

2. Для каждого числа `number` мы инициализируем переменную `primeDivisorSum` нулем. В эту переменную мы будем накапливать сумму простых делителей числа `number`.

3. Вложенным циклом `for` мы ищем делители числа `number`. Мы перебираем все числа от 2 до `number-1` и проверяем, делится ли `number` на текущий делитель без остатка.

4. Если делитель найден (`number mod divisor = 0`), то мы проверяем, является ли он простым числом. Мы проверяем, делится ли текущий делитель на какое-либо число от 2 до квадратного корня из делителя (`trunc(sqrt(divisor))`) без остатка. Если делитель делится без остатка, то он не является простым числом.

5. Если делитель является простым числом, то мы добавляем его к сумме простых делителей `primeDivisorSum`.

6. После того, как пройдены все делители `number`, мы проверяем, превышает ли сумма простых делителей `primeDivisorSum` значение 250. Если да, то выводим число `number` и сумму его простых делителей на экран.

Таким образом, данная программа находит числа в интервале [33333;55555], которые делятся на сумму их простых делителей, превышающую 250. Надеюсь, это решение понятно и полезно для школьника! Если у вас возникнут еще вопросы, не стесняйтесь задавать.