Ответ(ы) на вопрос:
Гость Var
r, m, k, s: real;
begin
r := exp(ln(22.5) * (-0.5)) - 7.5*sqr(exp(ln(2.87) * (-(4)/(3))))*cos(1);
m := (-1) * (ln(exp(ln(1.6) * (exp(ln(1.2) * (1/3)))))) * exp(3)/(ln(10));
write('k = ');
readln(k);
if (abs(k * r) > (abs(m) + 0.5)) then
s := (4*r + 3*m)/(r*r + m*m);
if (abs(k) <= (abs(m) + 0.5)) then
s := abs(r - m);
writeln(s:5:3);
end.
Не нашли ответ?
Похожие вопросы