program prog;
var x,y:real;
begin
write('Введите x: '); readln(x);
if x = 2 then write('Уравнение не имеет решения при x = 2.')
else write('y = ', 1/(sqr(x)+1)+1/(x-2):0:3)
end.
Поделитесь своими знаниями, ответьте на вопрос:
Составить алгоритм определения. y=1/x2+1 + 1/x-2 8 КЛАСС
program prog;
var x,y:real;
begin
write('Введите x: '); readln(x);
if x = 2 then write('Уравнение не имеет решения при x = 2.')
else write('y = ', 1/(sqr(x)+1)+1/(x-2):0:3)
end.