Question

!!!!!!!!!!!!!ДАЮ 50 БАЛЛОВ!!!!!!!!!!!!!!!! Переведите программу с Pascal на Python: var a:array[1..40000,1..2] of byte; f:text; n,i,j,k:integer; begin assign(f,'input.txt'); reset(f); read(f,n); for i:=1 to n do read(f,a[i,1],a[i,2]); close(f); k:=0; for i:=1 to n-1 do for j:=i+1 to n do if(a[i,1]=a[j,1])or(a[i,1]=a[j,2]) or(a[i,2]=a[j,1])or(a[i,2]=a[j,2])then inc(k); assign(f,'output.txt'); rewrite(f); write(f,k); close(f); end.

Answer 1

a = []
with open('input.txt', 'r') as f:
    n = int(f.readline())
    for i in range(n):
       inp = f.readline()
       x, y = list(map(int, inp.split()))
       a.append((x, y))

k = 0
for i in range(n - 1):
    for j in range(i + 1, n):
        if (a[i][0] == a[j][0]) or (a[i][0] == a[j][1]) or (a[i][1] == a[j][0]) or (a[i][1] ==                                                       a[j][1]): k += 1
with open('output.txt, w') as f:
  f.write(k)
https://pastebin.com/sHe7sFyc - тут все отформатировано красиво(просто на знаниях неудобно вставлять код)

Answer 2

Sure! Here's the Python translation of the given Pascal program:

pythonCopy code
a = [[0] * 2 for i in range(40000)]  # create a 2D list with 40000 rows and 2 columns, filled with 0s
f = open('input.txt', 'r')
n = int(f.readline().strip())  # read the first line of the input file and convert it to an integer
for i in range(n):
    a[i][0], a[i][1] = map(int, f.readline().split())  # read the i-th line of the input file and store the values in a[i][0] and a[i][1]
f.close()
k = 0
for i in range(n-1):
    for j in range(i+1, n):
        if a[i][0] == a[j][0] or a[i][0] == a[j][1] or a[i][1] == a[j][0] or a[i][1] == a[j][1]:
            k += 1
f = open('output.txt', 'w')
f.write(str(k))  # write the value of k to the output file
f.close()

I hope this helps! Let me know if you have any questions.