Вкомпании у каждых двух людей ровно пять общих знакомых. докажите, что количество пар знакомых делится на 3. help! ничего не понимаю

выразите количество троек попарно знакомых людей через количество пар знакомых

обозначим через р количество пар знакомых людей (то есть число рёбер в соответствующем графе), а через т – количество треугольников в этом графе. по условию каждое из рёбер входит ровно в 5 треугольников. с другой стороны, в каждый из т треугольников содержит ровно 3 ребра. следовательно,5р = 3т.   поскольку 3 и 5 – взаимно простые числа, р делится на 3.

Ответ давал уже когда- отклика не дождался, видимо. оно так надо было. function knight(x1, y1, x2, y2: integer): boolean; { возвращает true, если возможен переход с (x1,y1) на (x2,y2) } begin   if abs(x2 - x1) = 2 then knight : = (abs(y2 - y1) = 1)   else   if abs(x2 - x1) = 1 then knight : = (abs(y2 - y1) = 2)   else knight : = false end; function queen(x1, y1, x2, y2: integer): boolean; { возвращает true, если возможен переход с (x1,y1) на (x2,y2) } begin   queen : = (x1 = x2) or (y1 = y2) or (abs(x2 - x1) = abs(y2 - y1)) end; var   xk, yk, xq, yq: integer; begin   write('укажите через пробел координаты коня  [1..8]: ');   readln(xk, yk);   write('укажите через пробел координаты ферзя [1..8]: ');   readln(xq, yq);   if knight(xk, yk, xq, yq) then writeln('конь бьет ферзя')   else   if queen(xq, yq, xk, yk) then writeln('ферзь бьет коня')   else writeln('фигуры не угрожают друг другу') end.