Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Написать программу вычисления значения функции y=1/x. Мы знаем, что на ноль делить нельзя, поэтому в программе, если x=0, будем присваивать y значение 0

Ответ оставил Гость

Program funtion ;
var y,x:real;
begin
writeln (введите х);
readln(x)
if (x=o)
then y:=0
else y:=1/x;
writeln(y=,y)
end.