Найти на отрезе [n; m] натуральное число, имеющее наbбольшее количество делителей - QBasic

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

Решить задачу тремя способами:1) через цикл for 2) через цикл с предусловием while 3) через цикл с постусловием do until Задача: Найти на отрезе [n; m] натуральное число, имеющее наbбольшее количество делителей!

Решение задачи: «Найти на отрезе [n; m] натуральное число, имеющее наbбольшее количество делителей»

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

INPUT "n = ", n
INPUT "m = ", m
I1 = n
S1 = 0
'======================= For - Next =================================
FOR I = n TO m
    S = 0
    FOR K = 1 TO m
        IF I MOD K = 0 THEN
            S = S + 1
        END IF
    NEXT K
    IF S > S1 THEN
        S1 = S
        I1 = I
    END IF
NEXT I
'====================================================================
PRINT "Диапазон: "; n; " - "; m
PRINT "Число с наибольшим количеством делителей: "; I1; " ("; S1; ")"

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

В этом коде на языке QBasic выполняется следующая последовательность действий:

Вводятся значения для переменных n и m с помощью функции INPUT.
Первая переменная I1 инициализируется значением переменной n.
Вторая переменная S1 инициализируется значением 0.
Запускается цикл FOR, который начинается с i = n и продолжается до i = m.
Внутри цикла находится еще один цикл FOR, который начинается с k = 1 и продолжается до k = m.
Внутри второго цикла проверяется, делится ли текущее значение i на k без остатка с помощью оператора MOD.
Если да, то значение переменной S увеличивается на 1.
После завершения второго цикла, значение переменной S сравнивается со значением переменной S1.
Если значение S больше, чем значение S1, то значение переменной S1 обновляется значением S, а значение переменной I1 обновляется значением i.
После завершения первого цикла, выводится диапазон чисел n - m.
Выводится число с наибольшим количеством делителей I1.
Выводится количество делителей S1. Список действий:
Ввод значений для переменных n и m.
Инициализация I1 значением n.
Инициализация S1 значением 0.
Запуск цикла FOR от n до m.
Внутри цикла запуск второго цикла FOR от 1 до m.
Внутри второго цикла проверка делится ли i на k без остатка.
Если да, увеличение значения S на 1.
Сравнение значения S со значением S1.
Если значение S больше, обновление значений S1 и I1.
Вывод диапазона чисел n-m.
Вывод числа I1.
Вывод значения S1.