1)расположите в порядке убывания: 1024 бита, 1000 байтов, 1 бит, 1байт, 1 кбайт. 2)расположите в порядке возрастания: 1010 байтов, 2 байта, 1 кбайт, 20 битов, 10 битов.

1) 1 Кбайт, 1000 байтов, 1 байт, 1024 бита, 1 бит
2) 10 битов, 20 битов, 2 байта, 1010 байтов, 1Кбайт

a = [[i] for i in range(10)]

for i in enumerate(a):

 for j in range(1,10):

   if i[0] == 0:

     a[i[0]].append(j)

   else:

     a[i[0]].append(j*i[1][0])

for i in a:

   for j in i:

     print('{:3d}'.format(j), end='')

   print()

print('------------------------------------')

while True:

 x = int(input('Введите x: '))

 y = int(input('Введите y: '))

 print('Результат на основе таблицы умножения равен: ', str(a[x][y]))

 z = input('Повторить? (y/n): ')

 if z != 'y':

   print('До встречи!')

   break

Var i,j,s,k:integer;
begin
s:=0; k:=0;
for i:=1 to 9 do
 for j:=0 to 9 do
  begin
  s:=s+i*100+j*10+i;
  k:=k+1;
  end;
writeln('s = ',s,' k = ',k,' sred = ',s/k:6:2);
end.

Результат:
s = 49500 k = 90 sred = 550.00

Если нужно приложение с формой, то:
помещаете на форме командную кнопку (Button) и статичный текст (StaticText).
В обработчик кнопки добавляете код:
procedure TForm1.Button1Click(Sender: TObject);
var i,j,s,k:integer; s:string;
begin
 s:=0; k:=0;
 for i:=1 to 9 do
  for j:=0 to 9 do
   begin
   s:=s+i*100+j*10+i;
   k:=k+1;
   end;
   s:='s = '+IntToStr(s)+' k = '+IntToStr(k)+' sred = '+FloatToStr(s/k);
  StaticText1.Caption := s;
end;