В показанной на с. 5 презентации к лекции 2 линейной активной цепи с обратной связью: KU(jω)=+100, βU(jω)=???. Обратная связь в цепи будет отрицательной при βU(jω)=...

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=MatrGen(n,n,(i,j)->i<=n-j-1?i+1:0);
  a.Println(3)
end.

Пример
n= 13
  1  1  1  1  1  1  1  1  1  1  1  1  1
  2  2  2  2  2  2  2  2  2  2  2  2  0
  3  3  3  3  3  3  3  3  3  3  3  0  0
  4  4  4  4  4  4  4  4  4  4  0  0  0
  5  5  5  5  5  5  5  5  5  0  0  0  0
  6  6  6  6  6  6  6  6  0  0  0  0  0
  7  7  7  7  7  7  7  0  0  0  0  0  0
  8  8  8  8  8  8  0  0  0  0  0  0  0
  9  9  9  9  9  0  0  0  0  0  0  0  0
 10 10 10 10  0  0  0  0  0  0  0  0  0
 11 11 11  0  0  0  0  0  0  0  0  0  0
 12 12  0  0  0  0  0  0  0  0  0  0  0
 13  0  0  0  0  0  0  0  0  0  0  0  0

P.S. Ненавижу того, кто поставил тут этот шрифт - все съезжает!

#include <iostream>
using namespace std;
int A[20];

int main()
{
int n, c, p, max;
int counter, ncounter;
counter = 0;
cin >> n;
c = n;
p = n;
for (c; c>0;)
{
 counter++;
  c = c / 10;
 A[counter] = p - c * 10;
 p = c;
 if (c > 0 && c < 10)
 {
  A[counter + 1] = c;
 }
}
max = 0;
ncounter = 0;
for (int s = 1; s <= counter; s++)
{
 if (A[s] > max)
 {
  max = A[s];
  ncounter = 0;
 }
 if (A[s] == max)
 {
  ncounter++;
 }
}
cout << ncounter;
system("pause");
return 0;
}