50 ! переведите данный текст с питона на с++n = int(l = list(map(int, n = 0for i in range(n): - for j in range(len(l)): -- if (j ! = i) and (l[i] + l[j] < (l[i] - l[j] or l[j] - : ---- n += 1print(n)

Как-то так) var a,b,c,d,e,f: integer; function nod(m,n: integer): integer; begin while m< > n do if m> n then m: =m-n         else n: =n-m; nod: =m end; begin write('введите числитель1, знаменатель1, числитель2, знаменатель2'); readln(a,b,c,d); e: =a*d+b*c; f: =b*d;   if f=0 then write('на 0 делить нельзя') else if e=0 then writeln('сложение =    ',e)        else begin         e: =e div nod(abs(e),f);           f: =f div nod(abs(e),f);           writeln('сложение =  ',e,'\',f);           end; e: =a*c; f: =b*d;   if f=0 then write('на 0 делить нельзя') else if e=0 then writeln('умножение =  ',e) else begin   e: =e div nod(abs(e),f);         f: =f div nod(abs(e),f);         writeln('умножение =  ',e,'\',f);           end; e: =a*d; f: =b*c; if f=0 then write('на 0 делить нельзя') else           if e=0 then writeln('деление=    ',e) else begin  e: =e div nod(abs(e),f);         f: =f div nod(abs(e),f);         writeln('деление =  ',e,'\',f);           end;         end.