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

Ответы 1

  • Program n1;var n,i: longint;function simply(a: longint ):boolean;var i: longint;beginsimply:=true;for i:=2 to trunc(sqrt(a)) do begin if a mod i=0 then beginsimply:=false;breakendendend;beginreadln(n);for i:=2 to n do if simply(i) then write(i,' ');end.
    • Автор:

      olivecase
    • 2 года назад
    • 10
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years