!ДАЮ 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.
Решение задачи по !ДАЮ 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. для школьников 5 - 9 класс. Прочитайте ответы, обсуждения и советы от других участников. Ответы на этот вопрос уже есть. Задавайте свои вопросы, получайте помощь и становитесь экспертом, помогая другим.
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 — тут все отформатировано красиво(просто на знаниях неудобно вставлять код)