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



sosh-1@ukr.net в категроии Информатика, вопрос открыт 21.05.2017 в 07:44

1 ответ



darasun2010@mail.ru , ответ добавлен 21.05.2017 в 08:09

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

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