Даны действительные числа a, b, c. Даны действительные числа a, b, c. Найдите все решения...

Question

Даны действительные числа a, b, c. Даны действительные числа a, b, c. Найдите все решения квадратного уравнения ax2 + bx + c = 0. Формат входных данных Даны три действительных числа, a не равно 0. Формат выходных данных Выведите два действительных числа, если уравнение имеет два корня, одно действительное число – при наличии одного корня. При отсутствии действительных корней ничего выводить не нужно.ПАСКАЛЬ

Answer 1

Var a,b,c:real;
begin 
read(a,b,c);
if sqr(b)-4*a*c>0 then write((-b-sqrt(sqr(b)-4*a*c))/(2*a),' ',(-b+sqrt(sqr(b)-4*a*c))/(2*a)) else
if sqr(b)-4*a*c=0 then write(-b/(2*a))
end.