Составить программу для вычисления следующей функции в Turbo Packal
x=cos(b)/корень b+5
b=a+c^2
Ответ
0
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.
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.