Question

Алгоритм ветвления на PascalABC:
y=x/3x-3

Answer 1

var

x,y : real;

begin

write('Введите значение переменной x: ');

readln(x);

if x <> 1 then begin

y := x / (3*x-3);

writeln('Y=',y);

end

else

writeln('При X = 1 знаменатель обращается в ноль!')

end.