Question

Написать программу на языке Паскаль для нахождения корней квадратного уравнения по его коэффициентам с помощью дискриминанта. В случае отрицательного дискриминанта на экран должно выводиться сообщение, что уравнение не имеет корней. В случаях, когда дискриминант нулевой или положительный, на экран должны выводиться соответствующие сообщения о найденных корнях. Программу сохраните в файле под именем «Квадратное уравнение».
очень срочно прошу ​

Answer 1

Поскольку задание тривиальное и находится по любому запросу в интернете, позволю себе использовать различные навороты PascalABC.NET:

##

var a:= ReadArrReal(3);

var d:= a[1]**2 - 4*a[0]*a[2];

print(if (d < 0) then 'No Roots!' else 'Answer: ' + if (d = 0) then ''+(-a[1]/(2*a[0])) else ((-a[1]+sqrt(d))/(2*a[0]))+' '+((-a[1]-sqrt(d))/(2*a[0])))

Обратите внимание на необычный синтаксис.