Pascal 2.6.0 помогите с задачей пожалуйста.
Ребят, я даже не знаю куда обратиться, помогите пожалуйста с решением задачи в Pascal 2.6.0 free. не могу решить задачу, если есть возможность распишете пожалуйста полностью ее, очень буду вам благодарен.
Приложения:
![](https://st.uroker.com/files/fb9/fb93e26d0667b24bed84e92bdf6409f5.jpg)
Ответы
Ответ дал:
0
Free Pascal))))
var x,y:real;
begin
Write('x=');
read(x);
if x<-4 then y:=tan(x) else
y:=x**4.8;
if (x>=-4) and (x<=4) then y:= sqrt(abs(x))-(x+4)**2;
writeln('y=',y:0:4);
end.
var x,y:real;
begin
Write('x=');
read(x);
if x<-4 then y:=tan(x) else
y:=x**4.8;
if (x>=-4) and (x<=4) then y:= sqrt(abs(x))-(x+4)**2;
writeln('y=',y:0:4);
end.
Вас заинтересует
1 год назад
1 год назад
8 лет назад
8 лет назад
8 лет назад