Составить программу для решения квадратного уравнения a*x*x+b*x+c=0

Question

Составить программу для решения квадратного уравнения a*x*x+b*x+c=0

Answer 1

Var
  a, b, c, D: integer;
  x, x2: real;

begin
  write('Введите a: ');
  readln(a);
  write('Введите b: ');
  readln(b);
  write('Введите c: ');
  readln(c);
  D := sqr(b) - 4 * a * c;
  if D > 0 then begin
    x := (-b - sqrt(D)) / 2 * a;
    x2 := (-b + sqrt(D)) / 2 * a;
    writeln('x1 = ', x, newline, 'x2 = ', x2);
  end;
  if D < 0 then writeln('Корней нет.');
  if D = 0 then begin
    x := (-b) / 2 * a;
    writeln('x = ', x);
  end;
end.