Question

Составьте программу определения корней квадратного уравнения для введённых с клавиатуры коэффициентов
Pascal ABC​

Answer 1

Ответ:

PascalABC.NET

begin

 var (a, b, c) := ReadInteger3();

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

 if D < 0 then Println('D < 0. No Roots')

 else if D = 0 then Println('Root: ', (-b/(2*a)))

 else Println('Roots: ', (-b+sqrt(D))/2*a, (-b - sqrt(D)) / 2*a);

end.