Follador
4 год назад
срочно пж в pascal abc
ОТВЕТЫ
Веско
Oct 24, 2020
Var
y,x:real;
Begin
Write('x = ');
Read(x);
if (1<=x)and(x<=3) then y:=x/2*power(abs(1+x),1/3)
else if x>3 then y:=sin(2*x)/(2+cos(3*x));
Write('f(',x,') = ',y);
End.
y,x:real;
Begin
Write('x = ');
Read(x);
if (1<=x)and(x<=3) then y:=x/2*power(abs(1+x),1/3)
else if x>3 then y:=sin(2*x)/(2+cos(3*x));
Write('f(',x,') = ',y);
End.
157
Смежные вопросы:
