"Разветвляющийся алгоритм " 1. Вычислите

Question

"Разветвляющийся
алгоритм "

1. Вычислите

---

Answer 1

Var
x,y:real;
begin
write('vvedi X = ');
readln(x);
if x<-4 then y:=(5*x*x+2)/(x+4) else y:=3*x*x+7;<br>writeln('y=',y:5:3);
readln;
end.

Comments

это как понять? y:5:3);

---

почему я в паскале пишу оно все время подставляет числа в нижнее уравнение , где 3*x*x+7, а должно когда число больше -4 в верхнее подставлять

---

все я знак поменял теперь нормально

---

видимо опечатался, бывает)