Question

Вычислить у=3x-4/x-1 доя любого целого х. на языке Pascal.

Answer 1

program CalculateY;

var

x, y: integer;

begin

write('Введите целое число x: ');

readln(x);

if x = 1 then

begin

writeln('Нельзя вычислить у при x=1, так как это приведет к делению на ноль.');

end

else

begin

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

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

end;

end.

Этот код спрашивает у пользователя значение х, а затем проверяет, равно ли х 1. Если х равно 1, то программа выводит сообщение о том, что невозможно вычислить у при таком значении х, так как это приведет к делению на ноль. В противном случае программа вычисляет значение у и выводит его на экран.