Question

программа в паскаль
y=5/x
введите x
x не равно 0​

Answer 1

Объяснение:

Program zero;

Var x:Integer; y:Real;

Begin

Whiteln('Введите аргумент: ');

Readln(x);

If x<>0 then

Begin

y:=5/x

Whiteln('Значение функции: ', y)

End

else

Whiteln('Функция не существует!!! ');

Readln

End.