Составьте программу решения квадратного уравнения. var a, b, c, D, x1, x2: real; begin readln(a, b, c); D := b * b - 4 * a * c; if D >= 0 then begin write((-b + sqrt(D)) / (2 * a)); write((-b - sqrt(D)) / (2 * a)); end else write('корней нет') end.

Задание

Составьте программу решения квадратного уравнения.

var a, b, c, D, x1, x2: real;
begin
readln\(a, b, c\);
D := b * b - 4 * a * c;
if D >= 0 then begin
write\(\(\-b \+ sqrt\(D\)) / \(2 \* a\));
write\(\(\-b \- sqrt\(D\)) / \(2 \* a\)); end
else write\('корней нет'\)
end.