Составьте программу вычисления Y по одной из двух формул:

у=х^2+2x+3, если x>0

y=x^3-2x+3, если x<=0

Question

Игорич

17 января, 21:38

+5

Ответы (1)

Знаете ответ на вопрос?

Андрюха · Answer 1

Var

x, y: real;

begin

readln (x) ;

if x > 0 then y : = x * x + 2 * x + 3

else y : = x * x * x - 2 * x + 3;

writeln ('y=', y) ;

end.

Составьте программу вычисления Y по одной из двух формул:у=х^2+2x+3, если x>0y=x^3-2x+3, если x<=0