Pascal. Задача 3-13*

Вывести все простые числа из диапазона 2..N, где число N вводит пользователь.

Примечание: Проверку на простоту числа осуществить методом перебора. Достаточно проверить на деление от 2 до квадратного корня из проверяемого числа. Для преобразования вещественного числа в целое можно использовать функцию round.

При решении задач, в которых есть проверки, подразумевающие два варианта, удобно пользоваться переменной логического типа. Переменной присваивается начальное значение, а в процессе проверки значение может поменяться. Такая переменная в программирование называется флагом (флаг поднят, флаг опущен).

Решение

var
  i, j, N : integer;
  prime : boolean;
begin
  Write('Введите число: ');
  Readln(N);
  Writeln(2);
  for i := 3 to N do begin
    prime := true;
    for j := 2 to round(sqrt(i)) + 1 do
      if i mod j = 0 then begin
        prime := false;
        break;
      end;
    if prime then Writeln(i);
  end;
end.