C++
Найти корни квадратного уравнения a·x2 + b·x + c = 0, введя с экрана коэффициенты a, b, c (коэффициент a не равен 0), для которых дис- криминант положителен.

Ответ:

var

A, B, C, D, x: real;

begin

write('A = ');

readln(A); { <-- вводим А≠0 }

write('B = ');

readln(B); { <-- вводим B }

write('C = ');

readln(C); { <-- вводим C }

writeln;

D := sqr(B) - 4 * A * C; { <== вычисляем дискриминант }

writeln('Результат:');

x := (- B - sqrt(D)) /(2 * A); { <== первый корень }

writeln(' x1 = ', x:0:4);

x := (- B + sqrt(D)) /(2 * A); { <== второй корень }

writeln(' x2 = ', x:0:4);

readln

end.

Объяснение: