Найти корни квадратного уравнения A·x2 + B·x + C = 0, заданного своими коэффициентами A, B, C (A > 0), если известно, что дискриминант уравнения положителен. Вывести вначале меньший, а затем больший из найденных корней.
Корни квадратного уравнения находятся по формуле x1, 2 = (−B ± (D)1/2)/(2·A), где D — дискриминант, равный B2 − 4·A·C.
uses
PT4;
var
a, b, c, d, x1, x2: real;
begin
Task('Begin39');
read(a, b, c);
d := sqr(b) - 4 * a * c;
x1 := (-b - sqrt(d)) / (2 * a);
x2 := (-b + sqrt(d)) / (2 * a);
write(x1, x2);
end.
