Получить произведение всех простых натуральных чисел в диапазоне от m до n

Даны натуральные числа m и n. Получить произведение всех простых натуральных чисел в диапазоне от m до n

code: #basic
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
Поделиться:

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