Задать вопрос
21 июля, 14:55

Решето Эратосфена в 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

+3
Ответы (1)
  1. 21 июля, 18:31
    0
    Program n1;

    var n, i: longint;

    function simply (a: longint) : boolean;

    var i: longint;

    begin

    simply:=true;

    for i:=2 to trunc (sqrt (a)) do begin if a mod i=0 then begin

    simply:=false;

    break

    end

    end

    end;

    begin

    readln (n) ;

    for i:=2 to n do if simply (i) then write (i,' ') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Решето Эратосфена в PascalABC Данные вводятся с клавиатуры или из файла input. txt, выводятся на экран или в файл output. txt. Первые тесты ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы