Question

Помогите, пожалуйста, с информатике!!! Дам 30 баллов!!!Составить программу решения линейного уравнения ax+b=0 (а не равно 0) Срочно!!!

Answer 1

Var
a,b :real;
Begin
Writeln('Введите a и b -> ');
Read(a,b);
Writeln('x = ', -b/a);
end.