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

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.