Дано натуральное число n. Вывести все простые делители данного числа. - QBasic

Формулировка задачи:

Задача*3. Дано натуральное число n. Вывести все простые делители данного числа. Задача*4. Даны натуральные числа m и n. Получить произведение всех простых натуральных чисел в диапазоне от m до n.

Решение задачи: «Дано натуральное число n. Вывести все простые делители данного числа.»

Листинг программы

INPUT m
INPUT n
IF n < m THEN SWAP m, n
p = 1
FOR i = m TO n
    k = 0
    FOR j = 1 TO i
        k = k - (i MOD j = 0)
    NEXT
    IF k = 2 THEN p = p * i
NEXT
PRINT p

Объяснение кода листинга программы

Вот что делается в этом коде:

Сначала пользователю предлагается ввести два числа, m и n.
Если первое число (m) больше второго (n), то они меняются местами.
Переменной p присваивается значение 1.
Затем начинается цикл от m до n.
Внутри цикла устанавливается счётчик k равным 0.
Далее идёт внутренний цикл по числам от 1 до i.
В каждой итерации внутреннего цикла проверяется, делится ли i на текущее значение j без остатка.
Если да, то k уменьшается на единицу.
После завершения внутреннего цикла проверяется, равно ли k 2.
Если да, то p умножается на i.
После завершения внешнего цикла выводится значение p. Код довольно простой и корректно решает задачу поиска всех простых делителей числа n. Однако, он не оптимален и может работать медленно для больших значений n.