<span>Если понравилось решение - нажимай "спасибо" и "лучший" (рядом с кнопкой "спасибо") :)</span>
0)начало
1)посадил дед репку
2)выростил
3)начал ее вытягивать из земли
4)позвал бабку
5)тянут потянут ,вытянуть не могут
5)позвали внучку
6)тянут потянут ,вытянуть не могут
7)позвали Жучку
8)тянут потянут ,вытянуть не могут
9) позвали кошку
10) тянут потянут, вытянуть не могут
11)позвали мышку вытащили
12)конец
Var
x, a, t, y: real;
begin
Write('Введите значение аргумента x: ');
Readln(x);
Write('Введите значение коэффициента a: ');
Readln(a);
{боремся с неположительным значением под знаком корня}
t := a - cos(x);
if t < 0 then y := exp(x + 1.8) - exp(1 / 5 * ln(-t))
else if t = 0 then y := exp(x + 1.8)
else y := exp(x + 1.8) + exp(1 / 5 * ln(t));
Writeln('Значение функции равно ', y)
end.
Тестовое решение:
Введите значение аргумента x: -4.2
Введите значение коэффициента a: 1.95
Значение функции равно 1.28604638457326
<span>Фонетика-это раздел науки о <span>языке, в котором изучаются звуки и их чередования, а также ударение, интонация, слогораздел.</span></span>