Вычислите y=cos корень из x+2/2x+12,где x-натуральные числа,y с дробной частью программа...

Question

Вычислите y=cos корень из x+2/2x+12,где x-натуральные числа,y с дробной частью программа пасхаль.Срочно!

Answer 1

Var  y: real;
  x: integer;
Begin
  Write('Задайте x: '); readln(x);
  y := cos(sqrt((x + 2) / (2 * x + 12) ));
  Writeln('y=', y);
End.

Answer 2

Наверное имелось ввиду следующее (x+2)/(2*x+12) иначе использовать дробь не имеет смысла, так как 2/2*x = x, а 2/(2*x) = 1/x

var x:integer;
y:real;
begin
  writeln('Введите Х');
  readln(x);
  y:=cos(sqrt((x+2)/(2*x+12)));
  writeln(y);
end.