1. Напишите функцию для решения уравнений степени не выше второй (квадратные и линейные): если у функции три аргумента, их надо трактовать как a, b и c в уравнении ??2 + ?? + ? = 0; если два — как коэффициенты b и c в уравнении ?? + ? = 0; если один — как коэффициент c в уравнении ? = 0; если список коэффициентов пуст или коэффициентов больше трёх, то функция должна вернуть None. Функция возвращает список, содержаний все корни уравнения (два, один или ни одного). Если корнем является любое значение x, функция возвращает список, содержащий символ «*» (["*"]).

ответ: 7

Объяснение:

Данная программа проверяет значения ячеек массива от Dat[1] до Dat[11], если значение больше 22, тогда к переменной m прибавляется 1.

Изначально m = 0

Dat[1] := 20; > 22 нет, переходим к следующему шагу.

Dat[2] := 25; > 22 да, к m прибавляем 1, m = 0 + 1 = 1

Dat[3] := 19;  > 22 нет, переходим к следующему шагу.

Dat[4] := 25; > 22 да, к m прибавляем 1, m = 1 + 1 = 2

Dat[5] := 26;  > 22 да, к m прибавляем 1, m = 2 + 1 = 3

Dat[6] := 22;  > 22 нет, переходим к следующему шагу.

Dat[7] := 24;  > 22 да, к m прибавляем 1, m = 3 + 1 = 4

Dat[8] := 28;  > 22 да, к m прибавляем 1, m = 4 + 1 = 5

Dat[9] := 26;  > 22 да, к m прибавляем 1, m = 5 + 1 = 6

Dat[10] := 21;  > 22 нет, переходим к следующему шагу.

Dat[11] := 27; > 22 да, к m прибавляем 1, m = 6 + 1 = 7

Строка writeln(m); означает, что программа должна вывести на экран значение переменной m

Значит в ре­зуль­та­те ра­бо­ты про­грам­мы будет на­пе­ча­та­но: 7

Const n=10;
var 
  k,l,m,i,j: integer;
  var a: array[1..n] of integer;
begin
  k:=0; m:=0; j:=0; l:=0;
  for i:=1 to n do begin
    a[i]:=random(10);
    write (a[i]:3);
    if (i>1) and (a[i]>=a[i-1]) 
      then begin k:=k+1; j:=i; end
      else 
        if (k>0) and (k>l) 
          then begin l:=k; m:=j; k:=0 end
          else k:=0;
  end;
  if (k>0) and (k>l) 
    then begin l:=k; m:=n end; 
  writeln;
  writeln;
  for i:=m-l to m do 
    write (a[i]:3);
  l:=l+1;
  writeln;
  writeln ('Длина = ',l)
end.
результат:
  9  2  5  0  8  5  7  7  3  7

  5  7  7
Длина = 3

* рандомный ввод массива можно заменить обычным с клавиатуры