program ideone; function ctg(x: extended):extended; begin ctg := cos(x)/sin(x); end; var i, count : integer; x : extended; begin count := 0; x := 1; for i:=0 to 2018 do begin if ctg(x)<0 then Inc(count); x := x * 10; end; WriteLn(count) end.