Занятие 09. Поиск простых чисел

Сегодня мы напишем программу по выводу простых числе из числового диапазона от 1 до 999

Программа №1. Вывод простых чисел в диапазоне от 1 до 999

PROGRAM SimpleNumbers;

VAR

  IsSimple: BOOLEAN;  //Флаг - "Число простое"

 I,N,N2 : INTEGER;

BEGIN

    CLS;

    FOR N:=1 TO 999 DO BEGIN

        IsSimple:=TRUE;           // "Взводим" флаг, по-умолчанию решаем, что число будет простое

        FOR I:=2 TO (N DIV 2) DO BEGIN      // Цикл для проверки делимости

            IF N MOD I = 0 THEN

            Begin

               IsSimple:=FALSE;  //Если число делится без остатка, то число сложное, прервать выполение

               Break;

            End;

        END;

        IF IsSimple=TRUE THEN    // После выполнения цикла если флаг "взведен", то число простое

           Writeln(N);           // Выводим простое число

    END;

END.