Составить алгоритм и программу квадратного уравнения, вариант D=0 не учитывать. A, B, C-вводится с клавиатуры. Если >0 вычислить корни, если меньше вывести на экран. Нет корней.

Программа на языке паскаль.

Program korni;

var a, b, c, d, x1, x2: real;

Begin

Writeln ('Введите значение a', a) ;

Readln (a) ;

Writeln ('Введите значение b', b) ;

Readln (b) ;

Writeln ('Введите значение c', c) ;

Readln (c) ;

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

writeln ('d=', d) ;

if d> 0 then

begin

x1: = (-b+sqrt (d)) / 2*a;

x2: = (-b-sqrt (d)) / 2*a;

Writeln (' x1=', x1) ;

Writeln (' x2=', x2) ;

end;

if d< 0 then writeln ('Нет корней') ;

end.