Программа решения квадратного уравнения вида 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;
Задание

Программа решения квадратного уравнения вида 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;