Question

Составить программу для вычисленитя значения функции заданной следующим образом: y= х / (x-5). Учесть, что при х=5 будет деление на 0

Answer 1

Ответ:

program pr1;

var x: integer;

begin

 read (x);

 if x<>5 then writeln (x/(x-5))

 else writeln ('На ноль делить нельзя')

end.