Ответы
Ответ дал:
2
Ответ:
program Calc2;
uses
Math;
var
x, y: Real;
begin
Write ('X = ');
ReadLn (x);
y := x - 10 * Sin (x) + Abs (Power (x, 4) - Power (x, 5));
WriteLn ('Результат = ', y);
ReadLn;
end.
Объяснение:
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
begin
Read(x);
y := x*x*x*x;
res := x - Sin(x)*10 + Abs(y - y*x);
Writeln(res);
end.