Составьте в тетради программу ** языке программирования Паскаль. В качестве ответа...

Question

Составьте в тетради программу на языке программирования Паскаль. В качестве ответа прикрепите фото программы в тетради!

---

Answer 1

Var 
x, y: real;

begin 
write('x = '); 
readln(x); 
if (x <= 2) then <br>y := sqr(x) + 4 * x + 5 
else
y := 1 / (sqr(x) + 4 * x + 5); 
writeln('F(x) = ', y);
end.

---