Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Найти номер первого, меньшего нуля, тангенса, среди 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.