Cod sursa(job #1507194)

Utilizator ili226Vlad Ilie ili226 Data 21 octombrie 2015 15:40:08
Problema Ciurul lui Eratosthenes Scor 20
Compilator fpc Status done
Runda Arhiva educationala Marime 0.34 kb
Raporteaza aceasta sursa 
var k,n,i,j:longint;
    ciur:array[2..2000003]of boolean;
    f:text;
begin
assign(f,'ciur.in');
reset(f);
readln(f,n);
close(f);k:=0;
for i:=2 to n do
 if not ciur[i] then
  begin
   inc(k);
   j:=i*i;
   repeat
    ciur[j]:=true;
    inc(j,i)
   until j>n;
  end;
assign(f,'ciur.out');
rewrite(f);
writeln(f,k);
close(f);
end.