Составить линейный алгоритм вычисления значения функции y=1/x (обязательно рассмотреть вариант x=0)



[email protected] в категроии Информатика, вопрос открыт 21.05.2017 в 11:44

1 ответ



[email protected] , ответ добавлен 21.05.2017 в 12:09

Var x, y: real;
begin
readln(x);
if x = 0 then
writeln('На ноль делить нельзя!')
else begin
y := 1 / x;
writeln('1/'+x+'='+y);
end;
end.

Оставлять ответы могут только авторизированные пользователи.
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.