Предмет: Информатика,
автор: RZ06
несколько раз пыталась сделать, но все время в паскале выдает разные ошибки, если не сложно кто-нибудь решите, пожалуйста!
Приложения:
Ответы
Автор ответа:
0
// PascalABC.NET
var
a,c,x,f,y:real;
begin
Write('a,c,x,f=');
Read(a,c,x,f);
y:=7*Sqrt(Power(a,5)-4*c)*Cos(Sqr(Tan(5)))/
(Sin(2)*Power(Cos(x-a*a),4))*
Power(a,2*x+1)*Sqrt(Abs(Cos(Sin(x*x))));
Writeln('y=',y)
end.
Результат
a,c,x,f=5 3 3 3
y=13459606.2123948
var
a,c,x,f,y:real;
begin
Write('a,c,x,f=');
Read(a,c,x,f);
y:=7*Sqrt(Power(a,5)-4*c)*Cos(Sqr(Tan(5)))/
(Sin(2)*Power(Cos(x-a*a),4))*
Power(a,2*x+1)*Sqrt(Abs(Cos(Sin(x*x))));
Writeln('y=',y)
end.
Результат
a,c,x,f=5 3 3 3
y=13459606.2123948
Автор ответа:
0
спасибо большое
Автор ответа:
0
Пожалуйста
Похожие вопросы
Предмет: Русский язык,
автор: ahot35
Предмет: Английский язык,
автор: dmitrievna17
Предмет: Русский язык,
автор: sejpuldinovadiat
Предмет: Литература,
автор: aleksuch
Предмет: Биология,
автор: arnelia