Сделать перевод чисел: в тетради с решением

​

Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.

import random

A  = []

for i in range(15):

   A.append(random.randrange(-50,50))

print(A)

pr = 1

for i in range(len(A)):

   pr*= A[i]

print("Произведение всех элементов равно: ", pr)

ko = 0

for i in range(len(A)):

   if A[i] < 0:

       ko += 1

print("Количество отрицательных элементов: ", ko)

sn = 0

nch = 0

for i in range(15):

   if A[i] % 2 != 0:

       sn+= A[i]

       nch += 1

if nch == 0:

   print("NO")

else:

   sr = sn / nch

   print("Среднее арифметическое:", end=" ")

   print(float('{:.2f}'.format(sr)))

print("Положительные, которые оканчиваются на 8:", end= " ")

k8 = 0

k93 = 0

for i in range(len(A)):

   if A[i] > 0 and A[i] % 10 == 8:

       k8 += 1

       print(A[i],end=" ")

if k8 == 0:

   print("NO",sep=" ")

print("Числа, которые делятся на 3, но не на 9:")

for i in range(len(A)):

   if A[i] % 3 == 0 and A[i] % 9 != 0 and A[i] > 0:

       k93+=1

       print(A[i],end=" ")

if k93 == 0:

   print("NO")