
Вычислить в Паскаль, прошу, помогите
Ответы на вопрос
Ответил MrMiner1
0
Для градусов:
program n_1;
uses math;
var x, y:real;
begin
readln(x);
y:=x-10*sin(x*Pi/180)+abs(Power(x, 4)-Power(x, 5));
writeln(y:0:10);
end.
Для радианов:
program n_1;
uses math;
var x, y:real;
begin
readln(x);
y:=x-10*sin(x)+abs(Power(x, 4)-Power(x, 5));
writeln(y:0:10);
end.
program n_1;
uses math;
var x, y:real;
begin
readln(x);
y:=x-10*sin(x*Pi/180)+abs(Power(x, 4)-Power(x, 5));
writeln(y:0:10);
end.
Для радианов:
program n_1;
uses math;
var x, y:real;
begin
readln(x);
y:=x-10*sin(x)+abs(Power(x, 4)-Power(x, 5));
writeln(y:0:10);
end.
Новые вопросы
Английский язык,
2 года назад
Русский язык,
2 года назад
Математика,
7 лет назад
Математика,
7 лет назад
Математика,
9 лет назад