Определить какие целые числа в диапазоне от 2 до N простые

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

code: #basic
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

автор: -immortal-

Поделиться:

Похожие статьи: