Определить простые числа - QBasic

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

В числовую переменную вводится количество целых чисел N (2 <= N <= 100). Определить какие целые числа в диапазоне от 2 до N простые. Проверить входные данные.

Решение задачи: «Определить простые числа»

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

CLS
DO
    INPUT "N (2<=N<=100)"; n
LOOP UNTIL n > 2 AND n <= 100
FOR i = 2 TO n
    k = 0
    FOR j = 2 TO i - 1
        IF i MOD j = 0 THEN k = 1
    NEXT
    IF k = 0 THEN s = s + 1
NEXT
PRINT "kol-vo prostih chisel do"; n; ":"; s

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

CLS — команда очистки экрана
DO — начало цикла
INPUTN (2<=N<=100); n — запрос на ввод числа n с ограничениями от 2 до 100
LOOP UNTIL n > 2 AND n <= 100 — цикл выполняется до тех пор, пока число n больше 2 и меньше или равно 100
FOR i = 2 TO n — начало внешнего цикла, где i — это число от 2 до n
k = 0 — инициализация переменной k со значением 0
FOR j = 2 TO i — 1 — начало внутреннего цикла, где j — это число от 2 до i-1
IF i MOD j = 0 THEN k = 1 — проверка на делимость числа i на число j, если делится, то переменной k присваивается значение 1
NEXT — переход к следующей итерации внутреннего цикла
IF k = 0 THEN s = s + 1 — если внутренний цикл не дал делителей числу i, то переменной s присваивается значение 1, иначе, значение не меняется
NEXT — переход к следующей итерации внешнего цикла
PRINTkol-vo prostih chisel do; n;:; s — вывод на экран количества простых чисел до n