Составить программу для вычисления следующей функции в Turbo Packal x=cos(b)/корень b+5 ...

Question

Составить программу для вычисления следующей функции в Turbo Packal
x=cos(b)/корень b+5
b=a+c^2

Answer 1

Uses Crt;

var
  a,b,c,x:double;
 
begin
  ClrScr;
  Write('Введите через пробел a и c:'); Read(a,c);
  b:=a+c*c;
  x:=Cos(b)/Sqrt(b+5);
  Writeln('x=',x);
  ReadKey
end.