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

Меркурий

24 октября, 21:51

+2

Ответы (1)

Знаете ответ на вопрос?

Аннета · Answer 1

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

Var a, b, c, D, x1, x2: longint;beginread (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.Почему выдает ошибку?