Pascal 2.6.0 помогите с задачей пожалуйста. Ребят, я даже не знаю куда обратиться,...

0 голосов
38 просмотров

Pascal 2.6.0 помогите с задачей пожалуйста.
Ребят, я даже не знаю куда обратиться, помогите пожалуйста с решением задачи в Pascal 2.6.0 free. не могу решить задачу, если есть возможность распишете пожалуйста полностью ее, очень буду вам благодарен.


image

Информатика (17 баллов) | 38 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Free Pascal))))
var x,y:real;

begin

Write('x=');

read(x);

if x<-4 then y:=tan(x) else<br>
y:=x**4.8;

if (x>=-4) and (x<=4) then y:= sqrt(abs(x))-(x+4)**2;<br>
writeln('y=',y:0:4);

end.

(2.3k баллов)