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.
cHJvZ3JhbSBpZGVvbmU7CmZ1bmN0aW9uIGN0Zyh4OiBleHRlbmRlZCk6ZXh0ZW5kZWQ7CmJlZ2luCiAgY3RnIDo9IGNvcyh4KS9zaW4oeCk7CmVuZDsKdmFyIGksIGNvdW50IDogaW50ZWdlcjsKICB4IDogZXh0ZW5kZWQ7CmJlZ2luCiBjb3VudCA6PSAwOwogeCA6PSAxOwogZm9yIGk6PTAgdG8gMjAxOCBkbyBiZWdpbgogICAgaWYgY3RnKHgpPDAgdGhlbiBJbmMoY291bnQpOwogICAgeCA6PSB4ICogMTA7CiBlbmQ7ICAKIFdyaXRlTG4oY291bnQpCmVuZC4=