Question

Найти У,если дан Х

У={x^2,если x>0
{x^3,если x<0
{5x-3,если x=0

Answer 1

Var X:real;
Begin
Write('X = ');ReadLn(X);
if X>0 then Write('Y = ',X*X)
   else if x=0 then Write('Y = ',5*X-3)
        else Write('Y = ',X*X*X);
End.

Хотя, если икс равен нулю, то писать 5*X вообще нет смысла, можно сократить до просто -3.

Answer 2

Ещё раз огромное вам спасибо!))