Question

Напишите программу в Паскаль пожалуйста y=x+5/x-3 (x-3)<>0

Answer 1

1) program abc;
var x, y: integer;
begin
read(x);
y:=(x+5)/(x-3)
write(y);

Answer 2

Конечно! Ниже представлена программа на языке Паскаль, которая вычисляет значение функции y = (x + 5) / (x - 3) при условии, что (x - 3) не равно нулю:

pascalCopy code
program ComputeY;

var
  x, y: real;

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

  if x <> 3 then
  begin
    y := (x + 5) / (x - 3);
    writeln('Значение y: ', y);
  end
  else
    writeln('Значение x не может быть равно 3 (деление на ноль).');
end.

Программа запрашивает у пользователя ввести значение x. Затем она проверяет условие (x - 3) <> 0. Если условие выполняется (т.е., x не равен 3), то программа вычисляет значение y и выводит его на экран. В противном случае, если x равен 3, программа выводит сообщение о невозможности выполнения деления на ноль.