Составить программу табулирования функции У=ln/cos(х)/ на интервале х [1;13],Δх=0,4

var
  x: real := 1;

begin
  while (x <= 13) do
  begin
    writeln(y(, x, ) = , ln(cos(x)));
    x += 0.4;
  end;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.