Question

Решето Эратосфена в PascalABC Данные вводятся с клавиатуры или из файла input.txt, выводятся на экран или в файл output.txt. Первые тесты не всегда совпадают с примерами из условия. Напишите программу, которая выводит все простые числа в диапазоне от 2 до N включительно ( 2 ≤ N ≤ 100000 ). Входные данные Входная строка содержит целое число N ( 2 ≤ N ≤ 100000 ). Выходные данные Программа должна вывести все простые числа в диапазоне от 2 до N в одну строку, разделив их пробелами. Примеры Входные данные : 20 Выходные данные : 2 3 5 7 11 13 17 19

Answer 1

Программа на PascalABC для решения задачи по поиску простых чисел в диапазоне от 2 до N с использованием решета Эратосфена может выглядеть следующим образом:

program SieveOfEratosthenes;

var
  N, i, j: Integer;
  isPrime: array of Boolean;

begin
  // Ввод N
  Readln(N);

// Инициализация массива isPrime
  SetLength(isPrime, N + 1);
  for i := 2 to N do
    isPrime[i] := true;

// Решето Эратосфена
  for i := 2 to Trunc(Sqrt(N)) do
  begin
    if isPrime[i] then
    begin
      for j := i * i to N do
        if j mod i = 0 then
          isPrime[j] := false;
    end;
  end;

// Вывод простых чисел
  for i := 2 to N do
  begin
    if isPrime[i] then
      Write(i, ' ');
  end;
end.

Эта программа сначала инициализирует массив `isPrime`, где каждому числу от 2 до N присваивается значение `true`. Затем она применяет решето Эратосфена, вычеркивая все составные числа. Наконец, программа выводит все простые числа в диапазоне от 2 до N.

Пример ввода и вывода:

Input:
20

Output:
2 3 5 7 11 13 17 19

Программа сначала считывает число N, затем выводит простые числа в заданном диапазоне, разделяя их пробелами.