Привет, мне нужна помощь с домашней работой. Прошу написать задание ** листочке...

Question

Привет, мне нужна помощь с домашней работой. Прошу написать задание на листочке программой,если возможно. Достаточно 1 ! Заранее спасибо

---

Answer 1

 

Uses Math;

var y,x:real;

begin

readln(x);

 

if  x < -1 then y:=power(x,3)

else if ((x>-1) and ( x < 1) then y:=power(x,3)/3

else y:=sqrt(abs(x-5));

 

writeln(y);

 

end.