Составьте программу в паскале

ответ:я не уверена в ответах(давно не решала такие задачи)

16

[29, 31]

[28, 30]

12

[21, 23]

[20, 22]

Объяснение:

def moves(heap):

   a,b=heap

   return[(a+1,b),(2*a,b),(a,b+1),(a,b*2)]

table={(k,s):0 for k in range(501)for s in range(501)}

for x in table:

   if any(sum(t)>=69 for t in moves(x)):

       table[x]=1

for x in table:

   if table[x]==0 and all(table[t]==1 for t in moves(x)):

       table[x]=2

for x in table:

   if table[x]==0 and any(table[t]==2 for t in moves(x)):

       table[x]=3

for x in table:

   if table[x]==0 and all(table[t]==3 or table[t]==1 for t in moves(x)):

       table[x]=4

print(min([s for s in range(1,118)if any(table[t]==1 for t in moves((5,s)))]))

print([s for s in range(1,118)if table[(5,s)]==3])

print([s for s in range(1,118)if table[(5,s)]==4])    

def moves(heap):

   a,b=heap

   return[(a+1,b),(2*a,b),(a,b+1),(a,b*2)]

table={(k,s):0 for k in range(501)for s in range(501)}

for x in table:

   if any(sum(t)>=53 for t in moves(x)):

       table[x]=1

for x in table:

   if table[x]==0 and all(table[t]==1 for t in moves(x)):

       table[x]=2

for x in table:

   if table[x]==0 and any(table[t]==2 for t in moves(x)):

       table[x]=3

for x in table:

   if table[x]==0 and all(table[t]==3 or table[t]==1 for t in moves(x)):

       table[x]=4

print(min([s for s in range(1,118)if any(table[t]==1 for t in moves((5,s)))]))

print([s for s in range(1,118)if table[(5,s)]==3])

print([s for s in range(1,118)if table[(5,s)]==4])      

Привет мой друг.

Ты знаешь как прочитать данные из скачанного файла? - Нет?

Тогда я тебе подскажу. Для начала я скину тебе файл, после чего ты его скачаешь.

Сделал? - Хорошо

Теперь, когда ты его скачал, зайди на главный экран своего ПК/Ноутбука и нажми на эконку - Мой компьютер - Скачанные файлы - Выбери файл который я тебе отправил - Распаковать через Microsoft Exe.

Вот мой друг, я тебе подробно расказал как открыть и прочитать данные из файла который тебе скинули.

Если тебе не сложно то можешь сделать ответ лучшим, мне будет очень приятно.