Найти У,если дан Х
У={x^2,если x>0
{x^3,если x<0
{5x-3,если x=0
Ответы на вопрос
Ответил Аноним
0
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.
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.
Ответил Редми789
0
Ещё раз огромное вам спасибо!))
Новые вопросы