Задания во вкладках............ Created by Ablai97. informatika-ru

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

Sergius5796 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.

0 votes Thanks 0

Aillianna

Verified answer

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.

1 votes Thanks 0

Answers & Comments

Verified answer

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

решите...

depth ?4.What can a visitor do (sports) or see there?...

решите...

решите...

Задания во вкладках (с решением плз)...

химия с решением...

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

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

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

рекомендуемые вопросы

Helpful Links

Helpful Social