Рабочие программы с решением на паскале.

Задача 1:

ответ: y = 0.961

var x,y: real;

begin

x:=2;

y:=(sqrt(abs(PI/180+x*sin(3*x/(tan(abs(cos(x*x;

writeln('y = ',y:0:3);

end.

Задача 2.а:

ответ: res = 0.083

var A,B,C: real;

begin

A:=5;

B:=1;

C:=3;

writeln('res = ',(1/(A+B)-(C-B)/((A+B)*(A-B))):0:3);

end.

Задача 2.б:

ответ: res = 9.667

var A,B,C: real;

begin

A:=5;

B:=1;

C:=3;

writeln('res = ',(A/C+B*(C+A+B)-power(B,A)):0:3);

end.

Задача 3.а:

ответ: res = 2.029

begin

writeln('res = ',((50.862)/(0.207+2.08*(3.684+8.27))):0:3);

end.

Задача 3.б:

ответ: res = 7.269

begin

writeln('res = ',((21.3)/(0.87-2.1*(2.037-3.018))):0:3);

end.