Информатика, опубликовано 14.04.2019 03:10
Решето эратосфена в 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
Ответы
Ответ оставил: Гость
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.Ответ оставил: Гость
Поздравительныйписьменный
Ответ оставил: Гость
Сам ты такой хахаххахахаххахахахаххахпхпхпххпхпОтвет оставил: Гость
Которые предназначены не для одной платформа (к примеру, не только на ПК)
Другие вопросы по информатике
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
