Напишите программу, которая выводит все простые числа в диапазоне от 2 до N включительно ( 2 ≤ N ≤ 100000
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Какое число выведется в результате выполнения программы при n = 5?
Автор: Shteinbakh
Напиши эссе о важности диалога в проекте
Автор: Сурат1199
var
N,i,k,x:integer;
begin
readln(N);
for i:=2 to N do
begin
x:=0;
for k:=2 to trunc(sqrt(i)) do
if i mod k=0 then
x:=1;
if x=0 then
write(i,' ');
end;
end.