Описать функцию rootcount(a, b, c) целого типа, определяющую количество корней квадратного уравнения ax2 + bx + c = 0 (a, b, c — вещественные параметры, a ≠ 0). с ее найти количество корней для каждого из трех квадратных уравнений с данными коэффициентами. количество корней определять по значению дискриминанта

===== PascalABC.NET =====

function RootCount(a, b, c: real): integer;

begin

 var D := b * b - 4*a*c;

 if D > 0 then

   Result := 2

 else if D =0 then

   Result := 1

 else

   Result := 0

end;

begin

 var (a,b,c) := ReadReal3('Задайте A, B, C:');

 Println('Кличество корней равно', RootCount(a, b, c))

end.

===== PascalABC.NET =====

function RootCount(a,b,c: real): integer;

begin

 var D := b * b - 4 * a * c;

 if D > 0 then

   Result := 2

 else if D = 0 then

   Result := 1

 else

   Result := 0

end;

// тест

begin

 var (a, b, c) := (3, 4.5, -1.2);

 var k := RootCount(a, b, c);

 if k = 0 then

   Println('Нет действительных корней')

 else

   Println('Количество действительноых корней равно',k)

end.

думою просто открой учебник и посмотри как делать

короче   делаи сама и не фиг сюда

ответ:

текст подчеркнут и имеет синий цвет