Из диапазона от 0 до m найти все простые числа- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
CLS
INPUT "vvedite granicu ", m
PRINT "prostye chisla ot 0 do "; m
FOR i = 2 TO m
    f = 0
    FOR j = 2 TO i - 1
        IF i MOD j = 0 THEN f = 1
    NEXT
    IF f = 0 THEN PRINT i;
NEXT

Тестирование выполнено в программе QB64 ( Скачать )

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

Leave a Comment