Блог для маленьких школьников и их родителей
ШколаЛа

!ДАЮ 50 БАЛЛОВ! Переведите программу с Pascal на Python: var a:array[1.40000,1.2] of byte; f:text; n,i,j,k:integer;…

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

!ДАЮ 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.

Ответов к вопросу: 1
  • ajdanasrsenbek
    05.06.2024 | 10:15

    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 — тут все отформатировано красиво(просто на знаниях неудобно вставлять код)

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.