Question

Срооочно
Составьте программу для вычисления Y=cos√X-1/X+1.

Answer 1

$y=cos sqrt{frac{x-1}{x+1}}$

Код программы:

program cos1;

var
   x, y: real;

begin
  write('Введите x: ');
  readln(x);
  y := cos(sqrt((x-1)/(x+1)));
  writeln('y = ', y:1:2);
end.