Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Решите 21 плииииииз:3

Ответ оставил Гость

Pascal ABC.net:
Var C,D,X1,X2:real;
Begin
Write(C = );ReadLn(C);
Write(D = );ReadLn(D);
X1:=9+4*abs(c*d);
X2:=((3-sqrt(X1))/2);
X1:=((3+sqrt(X1))/2);
WriteLn(Abs( power(Sin(abs(C*power(X1,3)+D*sqr(X2)-C*D)),3) / sqrt(sqr(C*power(X1,3)+D*sqr(X2)-X1)+3.14) )+Tan(C*power(X1,3)+D*sqr(X2)-X1));
End.


Pascal ABC:

Var
C,D,X1,X2:real;
Begin
Write(C = );ReadLn(C);
Write(D = );ReadLn(D);
X1:=9+4*abs(c*d);
X2:=((3-sqrt(X1))/2);
X1:=((3+sqrt(X1))/2);

WriteLn(Abs( power(Sin(abs(C*power(X1,3)+D*sqr(X2)-C*D)),3) / sqrt(sqr(C*power(X1,3)+D*sqr(X2)-X1)+3.14) )+Sin((C*power(X1,3)+D*sqr(X2)-X1))/Cos((C*power(X1,3)+D*sqr(X2)-X1)));
End.