У комірці електронної таблиці не може бути​

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

function S(a: array[,] of integer) :=

a.Cols.Where(p -> p.All(q -> q >= 0)).SelectMany(p -> p).Sum;

function M(a: array[,] of integer): integer;

begin

 var n := a.RowCount;

 Result := integer.MaxValue;

 var s: integer;

 for var i := 0 to n - 2 do

 begin

   s := 0;

   for var j := 0 to i do

     s += Abs(a[i - j, j]);

   if s < Result then

     Result := s

 end;

 for var j := 1 to n - 1 do

 begin

   s := 0;

   for var i := n - 1 downto j do

     s += Abs(a[i, n - i + j - 1]);

   if s < Result then

     Result := s

 end

end;

begin

 var n := ReadInteger('n =');

 var a := MatrRandom(n, n, -10, 30);

 a.Println;

 S(a).Println;

 M(a).Println;

end.

1.
N=int(input())
s=2
flag=False
for i in range(N):
      if N=s:
           flag=True
           break
      else:
           s*=2
if flag:
    print('Yes')
else:
    print('No')

2.
n=int(input())
def MinDivisor(n):
     nod=-1
     for i in range(n-1):
          if n%i=0:
              return i
              break

if MinDivision(n)==-1:
    print(n,' число является простым.')
else:
    print(MinDivision(n))

3.
A=int(input())
x=x1=1
s=0
while x1<A+2:
   b=x
   x=x1
   x1+=b
   s+=1
if x1==A:
    print(s)
else:
    print(-1)

4. 
a=[]
while 1:
   s=int(input())
   if s==0:
       break
   a.append(s)
a.sort()
print(a[-2])