Question

Помогите срочно пожалуйста

Answer 1

Ответ:

№1

program QuadraticEquation;

var

 a, b, c, d : real;

begin

 {ввод данных}

 write('a = ');

 readln(a);

 write('b = ');

 readln(b);

 write('c = ');

 readln(c);

 {дискриминант}

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

writeln(d);

 readln;