Var a,b,c,D,x1,x2: longint; begin read (a, b, c); D:=sqr(b)-4ac; x1:= (-b + sqrt(D)) div 2 * a; x2:=(-b - sqrt(D)) div 2 * a; write(x1,' ', x2); end. Почему выдает ошибку?

Question

Var a,b,c,D,x1,x2: longint; begin read (a, b, c); D:=sqr(b)-4ac; x1:= (-b + sqrt(D)) div 2 * a; x2:=(-b - sqrt(D)) div 2 * a; write(x1,' ', x2); end. Почему выдает ошибку?

Var a,b,c,D,x1,x2: longint; begin read (a, b, c); D:=sqr(b)-4*a*c; x1:= (-b + sqrt(D)) div 2 * a; x2:=(-b - sqrt(D)) div 2 * a; write(x1,' ', x2); end. Почему выдает ошибку?

Гость

Ответ(ы) на вопрос:

Accepted Answer

Дискриминант равен квадрату коэффициента при переменной первой степени. При чем здесь "div"? В принципе поиск корней выполнен неправильно