Ответы
Ответ дал:
0
Ответ:
Объяснение:
program FckngPower;
var
Res1, Res2, b, f, h, g, s, x, y : real;
Function Power (a, b : Real) : real;
begin
if a > 0
then Power := exp(b * ln(a))
else
if a < 0
then Power := exp(b * ln(abs(a)))
else
if b = 0
then Power := 1
else Power := 0;
end;
begin
x:=1; g:=1; y:=1; s:=1; b:=1; f:=1; h:=1;
Res1 := (Sqr(Abs(x-1)+2)+ Power(2*g,5/3))/(cos(x)+power(sin(y),36)+exp(-x*y))+(ln(power(s,9)/ln(x)));
Res2 := Power(2*b+cos(x), 1/9)+power(sin(y)*sin(y),5)-power(f,h);
end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад