Решето Эратосфена в PascalABCДанные вводятся с клавиатуры либо из файла input.txt,

Question

Решето Эратосфена в PascalABCДанные вводятся с клавиатуры либо из файла input.txt,

Решето Эратосфена в PascalABC

Данные вводятся с клавиатуры либо из файла input.txt, выводятся на экран или в файл output.txt. 1-ые испытания не всегда совпадают с примерами из условия.

Напишите программу, которая выводит все обыкновенные числа в спектре от 2 до N включительно ( 2 N 100000 ).

Входные данные
Входная строка содержит целое число N ( 2 N 100000 ).

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

Образцы
Входные данные : 20
Выходные данные : 2 3 5 7 11 13 17 19

Задать свой вопрос

Молокоедова Алёна
Информатика
2019-02-14 08:06:39
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Что надобно избрать? Were you at home tonight? ИЛИ

Сума трьох чисел доривню 80. Перше число -26 приятеле- на 5

Знаменито , что окружность x^2+x^2=r^2 проходит через точку А(4;2) . Проходит

-(0.5х+0.2)=х-(1.5х+0.1)ПЛЕЗ

в словах снега,снежок, снегирь мы смотрим ...........согласных звуков в корне.вопрос что

Восстанови последовательность событий Запиши предложения в правильном порядке Поставь где

331 пж упрашиваю побыстрей я не сообразил просто это задание спс

наименования водоемов родного края

герои басни иван крестьянский отпрыск у волшебство юдо

Составить план по рассказу : quot;В табореquot;. Летом ребята почивали

Виталя Старусев · Answer 1 · 2019-02-14 08:11:35+3:00

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,

Добро пожаловать!