Question

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

Answer 1

var 
x, y: real;

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