Question

PASCAL.!
Создайте алгоритм и программу для вычисления значения выражения. Провести три запуска с разными исходными данными, удовлетворяющими ОДЗ.​

Answer 1

program 123;

var a, b, x, y: real;

begin

write('Введите значение a: ');

readln(a);

write('Введите значение b: ');

readln(b);

write('Введите значение x: ');

readln(x);

y := (a*x*x - b*b*x) / (2*a*x + b) + 3 - x;

writeln('Значение Y равно: ', y);

end.