Даны натуральные числа m и n. Получить произведение всех простых натуральных чисел в диапазоне от m до n — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
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

Похожие записи/страницы: