Вбейте в паскаль или турбо паскаль , проверьте . 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.