Question

Написать текст программы на языке Паскаль. Вычислить значения следующих функций, используя условный оператор.

Answer 1

Ответ:

var

F, x: real;

begin

Write ('x= ');

Read (x);

if x>3 then

F:=1.2*x*x - 3*x - 9

else

F:=12.1 / (2*x*x + 1);

Write ('F= ', F)

end.