Составить программу решения уравнения ax^2+bx=0 (a,b - вводится с клавиатуры)

Question

Составить программу решения уравнения ax^2+bx=0 (a,b - вводится с клавиатуры)

Answer 1

x(ax+b)=0" alt="ax^2+bx=0=>x(ax+b)=0" align="absmiddle" class="latex-formula">
var
  a, b: real;
begin
  readln(a, b);
  writeln('X_1 = 0');
  if (a <> 0) then
    writeln('X_2 = ', -b / a)
  else
    if (b = 0) then
      writeln('Х любое');
end.