На языке паскаль написать программу вычисления значений функции.
y=( 3+x )/( 3-x );

Var 
x: integer; 
y: real;
begin
write(x = );
readln(x);
if x = 3 then writeln(Ошибка: деление на ноль!)
else
begin
y:=(3+x)/(3-x);
writeln(y = (3+x)/(3-x) = , y:3:2);
end;
readln;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.