Question

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

Answer 1

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.