2. пять человек живут в одном городе. их имена-леонид, владимир, николай, олег и пётр. их фамилии-степанов, борисов, козин, дроздов и истомин. борисов знаком только с двумя, а козин знаком только один человек. пётр знаком со всеми, кроме одного. николай и истомин знают друг друга с детства. владимир, николай и оллег знакомы между собой. дроздов и владимир незнакомы. олег, николай и борисов часто вместе ходят в кино. назовите имена и фамилии каждого.

Дроздов Петр
Борисов Влад
Козин Леонид
Истомин Олег
Степанов Николай

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018Внимание! Если программа не работает, обновите версию!

function IsPrime(Self: integer): boolean; extensionmethod;

// является ли число простым ?

begin

 if Self < 4 then Result := True

 else

 begin

   var found := (Self mod 2 = 0);

   var p := 3;

   while (not found) and (sqr(p) <= Self) do

   begin

     found := (Self mod p = 0);

     p += 2

   end;

   Result := not found

 end

end;

begin

 var (m, n) := ReadInteger2('Введите m и n:');

 Range(m, n).Where(t -> not t.IsPrime).Println

end.

Судя по полагается то ,  что они играли не зависимо за какую именно .  посчитаем сколько вообще было встреч , у команды первой лиги команд в 2 раза больше так как    .  посчитаем отдельно каждую встречу внутри команд ,и между разными .    по первой лиги это число сочетаний по высшей лиги это число сочетаний а между собой очевидно в сумме встреч.  если не было ничьи то очевидно одно из двух  1) либо   команда проиграет  2) либо команда выиграет  число выигрышей и проигрышей будет равна количеству сыгранных игр . то есть если всего у команда  побед то  пусть количество выигрышей команды первой лиги равна  , то другой что бы число делилось на 8 , очевидно что n либо само должно быть кратно 8 , либо     должно делится на 8 , подходит   при нем все выполняется