Question

Задания во вкладках...........

Answer 1

Var
    r, m, k, s: real;

function Power(x, n: real): real;
begin
    Power := exp(ln(x) * (n));
end;

begin
    write('k = ');
    readln(k);
    
    r := Power(22.5, -0.5) - 7.5 * sqr(Power(2.87, -4 / 3)) * cos(1);
    m := -ln(exp(3) * Power(1.6, Power(1.2, 1 / 3))) / ln(10);
    
    if abs(k * r) > (abs(m) + 0.5) then
        s := (4 * r + 3 * m) / (r * r + m * m)
    else if abs(k) <= (abs(m) + 0.5) then
        s := abs(r - m);
    
    writeln('r = ', s:10:10);
    writeln('m = ', s:10:10);
    writeln('s = ', s:10:10);
end.

Answer 2

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.