найти номер первого, меньшего нуля, тангенса, среди tg(r), ..., tg2, tg1.
через программу Паскаля

var r, i: integer;begin  write('r = ');  readln(r);  for i := r downto 1 do    if Tan(i) < 0 then      break;  write(i);end.