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.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.