Предмет: Информатика,
автор: lrakitskayap39re1

Вычислить в Паскаль, прошу, помогите
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Литература,
автор: tanagrigorak841
Предмет: Математика,
автор: hanakohasimoto
Предмет: Алгебра,
автор: shamaraav14
Предмет: Математика,
автор: 7484asem
Предмет: Математика,
автор: vefaramazanova81