Составьте программу вычисления Y по одной из двух формул:
у=х^2+2x+3,если x>0
y=x^3-2x+3,если x<=0
Ответы
Ответ дал:
0
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.
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.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад