Question

Написать программму для решения задачи (Pascal ABC). Вычислить значение функции F
Смотри вложения
 

Answer 1

var
  F, x: real;

begin
  writeln('Введите х');
  readln(x);
  if x <= -3 then F := 9
  else F := 1 / (sqr(x) + 1);
  writeln('Значение функции: ', F)
end.