Задание:
Даны три квадратных уравнения. Сколько из них имеют вещественные корни 1 уравнение ax^2+bx+c=02 уравнение bx^2+ax+c=03 уравнение cx^2+ax+b=0 объясните пожалуйста
Решение:
Var a, b, c: real; k: =0; begin readln (a, b, c); k: =k+integer (b*b — 4*a*c >=0); k: =k+integer (a*a — 4*b*c >=0); k: =k+integer (a*a — 4*c*b >=0); writeln (k); end.
Знаете другой ответ?