Вопрос помогите составить программу для решения задачи!
- Автор темы евгений
- Дата начала
Полина добрый вечер, нужный ответ здесь vk .cc/6mFAJE (уберите пропуск)
PascalABC
[THIDE="0"]var y,z,a,b,x:real;
begin
readln(x);
readln(a);
readln(b);
if x>2 then z:=exp(ln(a+b)*(1/3))*sqr(sin(x))
else z:=ln(x/a*b);
y:=sin(z);
writeln('y=',y);
end. [/THIDE]
[THIDE="0"]var y,z,a,b,x:real;
begin
readln(x);
readln(a);
readln(b);
if x>2 then z:=exp(ln(a+b)*(1/3))*sqr(sin(x))
else z:=ln(x/a*b);
y:=sin(z);
writeln('y=',y);
end. [/THIDE]
