Описать функцию RootsCount (A, B, C) целого типа, определяющую количество корней квадратного уравнения A∙x2 + B∙x + C = 0 (A, B, C - вещественные параметры, A ≠ 0). С ее помощью найти количество корней для каждого из трех квадратных уравнений с данными коэффициентами. Количество корней определять по значению дискриминанта: D = B2 - 4∙A∙С.

Function RootsCount (a, b, c:real) : integer;

var d:real;

begin

d:=b*b-4*a*c;

if d>0 then RootsCount:=2

else if d=0 then RootsCount:=1

else RootsCount:=0;

end;

var a, b, c:real; i:integer;

begin

for i:=1 to 3 do

begin

writeln (i,') a, b, c:') ;

readln (a, b, c) ;

writeln ('Количество корней = ', RootsCount (a, b, c)) ;

end;

end.

Пример:

1) a, b, c:

1 2 3

Количество корней = 0

2) a, b, c:

-4 5 6

Количество корней = 2

3) a, b, c:

-2 8 - 8

Количество корней = 1