Вычислите в двоичной системе счисления дату моего рождения-12 02 2004

1100 10 11111010100 день месяц год

Var a:array[1..50] of byte;

n,p, i,k,m,j,x,y,z: integer;

begin

writeln('Введите количество элементов');

readln(p);

repeat;  - обратите внимание, что Вы написали repead, хотя нужно repeat.

n:=4;

for i:=n downto 1 do begin

a[i]:=p mod 10;

p:= p div 10;

end;

For i:=1 To n-1 Do Begin

k := i;

For j := i + 1 To n Do

If a[j] >= a[k] Then

k := j;

m := a[i];

a[i] := a[k];

a[k] := m;

end;

x:=a[1]*1000+a[2]*100+a[3]*10+a[4];

For i := 1 To N - 1 Do Begin

k := i;

For j := i + 1 To n Do

If a[j] <= a[k] Then

k := j;

m := a[i];

a[i] := a[k];

a[k] := m;

end;

y:=a[1]*1000+a[2]*100+a[3]*10+a[4];

z:=x-y;

until z=p;

writeln(z);

end.

язык программирования python

def heapify(nums, heap_size, root_index):  

   largest = root_index

   left_child = (2 * root_index) + 1

   right_child = (2 * root_index) + 2

   if left_child < heap_size and nums[left_child] > nums[largest]:

       largest = left_child

   if right_child < heap_size and nums[right_child] > nums[largest]:

       largest = right_child

   if largest != root_index:

       nums[root_index], nums[largest] = nums[largest], nums[root_index]

       heapify(nums, heap_size, largest)

def heap_sort(nums):  

   n = len(nums)

   for i in range(n, -1, -1):

       heapify(nums, n, i)

   for i in range(n - 1, 0, -1):

       nums[i], nums[0] = nums[0], nums[i]

       heapify(nums, i, 0)

list_of_nums = [int(item) for item in input('Введите элементы через пробел: ').split()]  

heap_sort(list_of_nums)  

print(list_of_nums)