Question

Скласти програму обчислення функции

Answer 1

Ответ:

Объяснение:

var

   x, y: integer;

 begin

   write ('x = ');

   readln (x);

 

   if x >= 1 then

       y := (х-1)*(х-1)

   else

       if  0<=x<1 then

           y := 0

       else

           y := x*x*x

 

   writeln ('y = ', y);

 

end.