Question

Написать программу решения линейного алгебраического уравнения с произвольными параметрами: A*X+B=0.

Answer 1

var  a,b,x:real;
begin
write('Введите коэффициенты а и b: ');
readln(a,b);
x:=-b/a;
writeln('Ответ: x=',x);
end.