const N = 25;var arr: array[1..N, 1..2] of real; firstNumber, secondNumber: real; i, j: integer;begin for i := 1 to N do begin Readln(firstNumber, secondNumber); Writeln(); if (firstNumber + secondNumber > 100) then begin j := j + 1; arr[j, 1] := firstNumber; arr[j, 2] := secondNumber; end; end; Writeln(); for i := 1 to j do Writeln(arr[i, 1], ' | ', arr[i, 2]);end.
1. Возьмем некого человека X. Остается 16 человек, значит, найдется язык на котором этот человек говорит с группой из 6 человек (16 / 3). Пусть этот язык будет x.
2. Теперь у нас есть группа из 6 человек. Возьмем в ней человека Y. Он должен общатся с группой на другом языке, иначе, уже есть 3 человека с языком x. Останется 5 человека, значит, найдется язык на котором этот человек говорит с группой из 3 человек (5 / 2). Пусть этот язык будет y.
3. Далее, людям из этой группы из 3-ех человек надо как-то общатся. Если они говорят на третьем языке, то их трое - доказнно. Еще они знают языки x и y. Если двое из них общаются на иксе, то они состаляют тройку с A, если на y с B. Доказанно.
1. Возьмем некого человека X. Остается 16 человек, значит, найдется язык на котором этот человек говорит с группой из 6 человек (16 / 3). Пусть этот язык будет x.
2. Теперь у нас есть группа из 6 человек. Возьмем в ней человека Y. Он должен общатся с группой на другом языке, иначе, уже есть 3 человека с языком x. Останется 5 человека, значит, найдется язык на котором этот человек говорит с группой из 3 человек (5 / 2). Пусть этот язык будет y.
3. Далее, людям из этой группы из 3-ех человек надо как-то общатся. Если они говорят на третьем языке, то их трое - доказнно. Еще они знают языки x и y. Если двое из них общаются на иксе, то они состаляют тройку с A, если на y с B. Доказанно.