1. Найти значение и номер первого отрицательного члена последовательности cos (сtg n)=1,2,3...

Можете открыть сообщение???

Какое?

В ЛС пишите

Обычное ЛС)

Я в том дело не могу вам написать в ЛС. Вы заблокировали

varx: real;begin  x := 1;  while (cos(1 / tan(x)) >= 0) do x := x + 1;  Write(x, ': ', cos(1 / tan(x)))end.Результат выполнения программы:6: -0.956871790478342Если нужна промежуточная печать:varx: real;begin  x := 1;  while (cos(1 / tan(x)) >= 0) do begin  Writeln(x, ': ', cos(1 / tan(x)));  x := x + 1  end;   Writeln(x, ': ', cos(1 / tan(x)))end.Результат выполнения программы:1: 0.8008443018952262: 0.8970899625399173: 0.7437942286546114: 0.649635715965585: 0.9565654792643336: -0.956871790478342