Question

Решите пожалуйста паскали,вариант 5
Begin
writeln
End.

Answer 1

1.

const num_1 = 10/52;

const num_2 = sqrt(54.7);

var

 result:real;

 function sum(a,b:real):real;

 begin

    sum:=a+b;

 end;

begin

 result:=sum(num_1, num_2);

 writeln(result);

end.

2.

const x = 41.3;

const basis = 10;

var

 result:real;

begin

 result:=ln(x)/ln(basis);

 writeln(result);

end.

3.

const x = 7.5;

const y = 9.6;

var

 result : real;

 function root(x, y:real):real;

 begin

 root := exp(ln(x)/3) * exp(ln(y)/4);

 end;

begin

 result:=root(x,y);

 writeln(result);

end.

4.

const x = 1.6;

const y = 1.3;

var

 result:real;

 function gen(x,y:real):real;

 var  

   res:real;

 begin

   res:=cos(y);

   gen:=sin(x)*power(res, 3);

 end;

begin

 result:=gen(x,y);

 writeln(result);

end.