Question

Программирование
Задание 1

Answer 1

{Не до конца понимаю что значит в данном контексте произвольного, так что выложу оба возможных варианта}
1)//С вводом.
var x,y:real;
begin;
readln(x);
if x=4.5 then
 begin;
  writeln('Нельзя делить на ноль');
  exit;
 end;
y:=(5*x-16*sqr(x))/(4*x-18);
writeln(y);
end.

2)//C случайным числом
var x,y:real;
begin;
randomize;
x:=random(100);
writeln('X=',x);
if x=4.5 then
 begin;
  writeln('Нельзя делить на ноль');
  exit;
 end;
y:=(5*x-16*sqr(x))/(4*x-18);
writeln(y);
end.