Задание

Программа решения квадратного уравнения вида ax2+bx+c=0. Выберите из предложенных вариантов пропущенный оператор:
var a,b,c: real;
x1,x2,D: real;
begin
readln\(a,b,c\);
D := ........ ;
if D < 0 then
writeln\('Корней нет'\)
else if D = 0 then begin
x1 := -b/\(2\*a\);
writeln\('x1=x2=',x1\);
end;
else begin
x1 := \(\- b \- sqrt\(D\))/\(2\*a\);
x2 := \(\- b \+ sqrt\(D\))/\(2\*a\);
writeln\('x1=',x1,' x2=',x2\);
end;
end.

  • D := b - 4*a*c;
  • D := b*b - 4*a*c;
  • D := b*b - 4ac;
  • D := b - 4*a*c;