Описать функцию 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

Var
a:array[1..5] of integer;
i,Max,c,n,f:integer;
 procedure ho;
 begin
       if a[i]>Max then
        begin
         Max:=a[i];
         c:=i;
        end;
 end;

 begin
   for i:=1 to 5 do
     begin
       a[i]:= random(15)+2;
       write(a[i],' ');
     end;
     Max:=a[1];
     c:=1;
     for i:=1 to 5 do
      ho;
      writeln;
      writeln('Максимум: ',max);
       f:=c;
                    if f=1 then
                    begin
                     max:=a[2];
                     for i:=2 to 5 do
                      ho;
                      writeln('Вторичный максимум: ',max);                                            exit;
                    end;       
                           if f<5 then
                      begin
                          Max:=a[f+1];
                          for i:=f+1 to 5 do
                          ho;
                          n:=max;
                       end;
                    if f>1 then
                      begin
                          Max:=a[1];
                          c:=f;
                          for i:=1 to c-1 do
                          ho;
                          if max>n then
                          writeln('Вторичный максимумì: ',max);
                          if max<n then
                          writeln('Вторичный максимум: ',n); 
                                               end;
   end.

ответ:

подписывайся на меня

какую роль играет для меня информатика, информатика дает нам много информации что изучает что то новое каждый день много програм и приложений, роботов коды для роботов мы люди это эпоха гаджетов что праграмиравоны за счет информации, люди дает мнения а другие используя коменты новое информатика для нас как открытое знание. много в мире професий связанные с информатика если знать от а до я то тогда можно взламывать , создавать, пиидумавать, рисовать и т. д информатика это крутяк.