Question

задание в паскале.
напишите программу, которая вычесляет корни уравнения.

Answer 1

                                        PascalABC.NET

begin

 var (a, b, c) := ReadReal3('Введите a, b, c:');

 if a = 0 then exit;

 var D := sqr(b) - 4 * a * c;

 println('Дискриминант:',D);

 if D > 0 then begin

   print('x1 =',(-b+sqrt(D))/(2*a));

   print('x2 =',(-b-sqrt(D))/(2*a));

   end

 else if D = 0 then

   print('x =', -b / (2 * a))

 else if D < 0 then

   print('Корней нет');

end.