Шахматы. Перевести код программы с Питона на Паскаль

@Ангелина1 · Регистрация: 12.05.2021

Студворк — интернет-сервис помощи студентам

В некоторых клетках квадратной доски 4x4 находятся четырёхгранные игральные кости. Кость снимается с поля, если количество соседних по стороне непустых клеток совпадает с числом, выпавшим на кости. Все кости, для которых выполняется это свойство, снимаются с поля одновременно. Если после снятия костей появляются новые кости, которые можно снять, то они снимаются по тем же правилам. Нужно переставить одну кость так, чтобы снялось максимальное количество костей.
На вход программе даётся четыре строки по четыре числа в каждом, разделённые одним пробелом. Всё числа – целые неотрицательные, не превышающие 4. Ноль означает отсутствие кости, любое положительное – наличие кости, на которой выпало указанное число. Гарантируется, что на поле есть, по крайней мере, одна кость и одна свободная клетка.
Пример ввода 1:
0 0 1 0
0 0 0 0
0 0 1 0
0 0 0 0

Пример ввода 2:
0 0 0 1
0 2 1 0
0 1 2 1
0 0 0 0

В виде ответа нужно вывести одно целое число – количество костей, которое можно снять с доски.
Пример вывода 1:
2
Пример вывода 2:
6

Переведите программу с Питона на Паскаль

Python
1
 import copy  import sys  def neighbours(a, x, y):  res = 0  for dx, dy in [(1, 0), (0, 1), (-1, 0), (0, -1)]:  xx = x + dx yy = y + dy  res += int(-1 < xx < len(a) and -1 < yy < len(a[xx]) and a[xx][yy] != 0)  return res  def clear(a):  b = []  res = 0  for x in range(len(a)):  b.append([0] * len(a[x]))  for y in range(len(a[x])):  if a[x][y] == 0:  continue  if a[x][y] != neighbours(a, x, y):  b[x][y] = a[x][y]  else:  res += 1 return (res, b)  def test(a, x1, y1, x2, y2):  a = copy.deepcopy(a)  a[x2][y2] = a[x1][y1]  a[x1][y1] = 0  res = 0  while True:  q, a = clear(a)  if q == 0:  return res  res += q  def solve(data):  a = list(map(lambda s: list(map(int, s.split())), filter(None, data.split('\n'))))  ans = 0  for x in range(len(a)):  for y in range(len(a[x])):  if a[x][y] == 0: continue  for xx in range(len(a)): for yy in range(len(a[x])): if a[xx][yy] != 0: continue  t = test(a, x, y, xx, yy)  if t > ans:  ans = t  return str(ans)  solve(sys.stdin.read())

@JuriiMW · 23.05.2021, 13:38

Ангелина1, вы уже который раз приказываете перевести код то с C#, то с питона.
А вы хоть пробовали запускать их!
Или тупо где-то находите, а потом сюда спускаете, да ещё и приказываете?

@ildwine · 23.05.2021, 20:56

Ангелина1, программа на языке Python вставлена ужасно. В этом языке отступы строк имеют первостепенное значения, а у вас вся программа вставлена в одну строку.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,059
	23.05.2021, 13:38
	Ангелина1, вы уже который раз приказываете перевести код то с C#, то с питона. А вы хоть пробовали запускать их! Или тупо где-то находите, а потом сюда спускаете, да ещё и приказываете? 0

@ildwine Почетный модератор 6201 / 2955 / 1300 Регистрация: 04.03.2013 Сообщений: 5,796 Записей в блоге: 1
	23.05.2021, 20:56
	Ангелина1, программа на языке Python вставлена ужасно. В этом языке отступы строк имеют первостепенное значения, а у вас вся программа вставлена в одну строку. 0