даны три квадратных уравнения. сколько из них имеют вещественные корни 1 уравнение ax^2+bx+c=0 2 уравнение bx^2+ax+c=0 3 уравнение cx^2+ax+b=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.
0 votes Thanks 2
archery
проверяем чтоб дискриминант был больше нуля, если вдруг не понятно
Answers & Comments
Verified answer
Vara, 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.