Информатика

Полюша

2 июля, 16:40

Program N2;

var x, y:real;

begin

writeln ('Задание: Вычислить значение функции у=1 / (х+2) - 4 / (х-2).') ;

writeln ('Введите значение x') ;

readln (x) ;

if (x+2) 0 and (x-2) 0 then

//на этой строке выдаёт "Нельзя преобразовать тип real к integer"

ставя курсор на (x-2) 0

begin

y:=1 / (x+2) - 4 / (x-2) ;

writeln ('Значение функции равно ', y) ;

end

else writeln ('Не имеет значений при данном x') ;

end.