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

Вы бы еще Канта, Гегеля и Аристотеля с Демокритом сюда добавили.

Я обратил Ваше внимание на некорректность. Не нравится - не принимайте во внимание. Забудьте.

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

А смысл трындеть бестолку?

Все математические абстракции разбиваются вдрызг о конечность и неточность представления вещественных чисел в компьютере.

function Foo(x:real):real;begin   if x<0 then result:=1/(x-1)   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.

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)    else y:=1/(x-5);    Writeln('F(x)=',y)  endend.