Cod sursa(job #1974124)

Utilizator math4Bornea Andrei Laurentiu math4 Data 26 aprilie 2017 21:30:59
Problema Ciurul lui Eratosthenes Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.25 kb
Raporteaza aceasta sursa 
var f,g:text;
    nr,p:int64;
begin
assign(f,'ciur.in');
assign(g,'ciur.out');
reset(f);
rewrite(g);
read(f,n);
 nr:=0;
 p:=1;
for i:=1 to n do
begin
 if (p*2 mod i=2) then nr:=nr+1;
 p:=p*2;
end;
writeln(g,nr);
close(f);
close(g);
end;