Помогите решать задачу по информатике пожалуйста... фото выложила, 5 ая задача

Question

Помогите решать задачу по информатике пожалуйста... фото выложила, 5 ая задача

---

Answer 1

Function Foo(x:real):real;
begin
   if x<0 then result:=1/(x-1)<br>   else if (x>0) and (x<>5) then result:=1/(x-5)
end;

begin
   var x := ReadlnReal('x =');
   if (x = 0) or (x = 5) then
      Print('Функция не определена')
   else Print('y = ',Foo(x))
end.

---

Comments

т.е. понятие бесконечность включает в себя как плюс, так и минус бесконечность?

---

А математика как считает?

---

Ааа, ну окей, вот и поговорили

Answer 2

Var
  x,y:real;
begin
  Write('Введите число: ');
  Readln(x);
  if x=0 then Writeln('Функция не определена')
  else if x=5 then Writeln('Значение функции бесконечно')
  else
  begin
    if x<0 then y:=1/(x-1)<br>    else y:=1/(x-5);
    Writeln('F(x)=',y)
  end
end.