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

Введем следующие обозначения: пусть x - заданное число, значение которого будем вводить с клавиатуры во время выполнения программы; y - число, значение которого надо найти в зависимости от введенного числа x. Тогда программа на языке программирования Pascal ABC может выглядеть так:

program zadacha;

uses crt;

var x: integer; y: real; {Описание величин x и y}

begin

writeln ('vvedite chislo x');

readln (x); {Ввод значения числа х}

if x=0 then y:=0 else y:=1/x;

writeln ('y=', y); {Вывод результата y на экран}

end.