2 ответа
Данил Тарасовский
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 абс(k * r) gt; (абс(m) + 0.5) then
s := (4 * r + 3 * m) / (r * r + m * m)
else if абс(k) lt;= (абс(m) + 0.5) then
s := абс(r - m);
writeln('r = ', s:10:10);
writeln('m = ', s:10:10);
writeln('s = ', s:10:10);
end.
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 абс(k * r) gt; (абс(m) + 0.5) then
s := (4 * r + 3 * m) / (r * r + m * m)
else if абс(k) lt;= (абс(m) + 0.5) then
s := абс(r - m);
writeln('r = ', s:10:10);
writeln('m = ', s:10:10);
writeln('s = ', s:10:10);
end.
Эвелина Скугарь
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) gt; (абс(m) + 0.5)) then
s := (4*r + 3*m)/(r*r + m*m);
if (абс(k) lt;= (абс(m) + 0.5)) then
s := абс(r - m);
writeln(s:5:3);
end.
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) gt; (абс(m) + 0.5)) then
s := (4*r + 3*m)/(r*r + m*m);
if (абс(k) lt;= (абс(m) + 0.5)) then
s := абс(r - m);
writeln(s:5:3);
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов