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

Введем следующие обозначения: пусть 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.