Дано натуральное число n. Вывести все простые делители данного числа -QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
INPUT a
FOR i = 2 TO a
    IF a MOD i = 0 THEN
        k = 0
        FOR j = 1 TO i
            k = k - (i MOD j = 0)
        NEXT
        IF k = 2 THEN PRINT i
    END IF
NEXT

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