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.

142

437

Посмотреть ответы 2

Ответы на вопрос:

Лизка250515

Информатика

4,5(42 оценок)

Var x,y: real; begin writeln (': вычислить значение функции у=1/(х+2) - 4/(х-2).'); writeln ('введите значение x'); readln (x); if ((x+2)< > 0) and ((x-2)< > 0) then {в это строке я просто (x+2)< > 0 и (x-2)< > 0 поставил в скобки} begin y: =1/(x+2)-4/(x-2); writeln('значение функции равно ',y); end else writeln ('не имеет значений при данном x'); end.