Вбейте в паскаль или турбо паскаль , проверьте пж.

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.

---