Question

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

Answer 1

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