Question

Calculează și depune într-un tablou numerele prime mai mici decît un natural dat n.
În pascal.

Answer 1

Asta e ciurul lui Eratostene fara nicio modificare :

program ciurul_lui_Eratostene;
var v1,v2:array[2..1000000] of longint;
nr,i,j:longint;
f:text;
begin
assign(f,'ciur.in');
reset(f);
readln(f,nr);
close(f);
for i:=2 to nr do
v1[i]:=i;
for i:=2 to nr do
begin
if(v2[i]=0) then
begin
for j:=2 to nr do
begin
v2[i*j]:=1;
end;
end;
end;
end.