Тип 9 № 47006 
Работа с таблицами. Задания для подготовки
i
В каждой строке электронной таблицы записаны четыре натуральных числа. Определите, сколько в таблице таких четвёрок, в которых любые три числа могут быть сторонами невырожденного треугольника (вырожденным называется треугольник, у которого сумма длин двух сторон равна длине третьей стороны).
Задание 9
Решение. Заметим, что если наибольшее число больше или равно сумме двух наименьших, то из этих трех чисел треугольник составить нельзя, а потому и вся четверка чисел не подходит. Если же наибольшее число меньше суммы двух наименьших, то из любых трех чисел такой четверки треугольник составить можно. Найдем все такие четверки чисел.
В ячейку E1 запишем формулу =МАКС(A1:D1) и скопируем её во все ячейки диапазона E2:E5000. В ячейку F1 запишем формулу =МИН(A1:D1) и скопируем её во все ячейки диапазона F2:F5000. В ячейку G1 запишем формулу =НАИМЕНЬШИЙ(A1:D1;2) и скопируем её во все ячейки диапазона G2:G5000. Таким образом, найдём наибольшее число и два наименьших числа в строке. В ячейку H1 запишем формулу =ЕСЛИ(E1<F1+G1;1;0) и скопируем её во все ячейки диапазона H2:H5000. Окончательно с помощью формулы =СУММ(H1:H5000) получим ответ — 1842.
Ответ: 1842.
Примечание.
Для программного решения файл exсel необходимо сохранить как текстовый документ.
Приведём решение Алиева Рамира на языке Python.
from itertools import permutations
y = [list(map(int,i.split())) for i in open('9.txt')]
q = 0
for u in y:
if all(n[0]+n[1]>n[2] for n in permutations(u,3)):
q += 1
print(q)
Приведём решение Никиты Юрлова на языке Python.
f = open('107_9.txt')
c = 0
for i in f:
a = sorted(list(map(int, i.split())))
if a[0] + a[1] > a[3] and a[0] + a[2] > a[3] and a[1] + a[2] > a[3]:
c += 1
print(c)
Приведём решение Сергея Донец на языке PascalABC.NET.
uses XLSX;
begin
var cnt := 0;
var data := ReadXLSXAsInts('47006.xlsx');
foreach var rw in data do
if rw.Combinations(3).All(trio ->
begin
var (a, b, c) := trio.Order;
result:=a + b > c;
end)
then cnt += 1;
Println(cnt);
end.
Примечание. Файл следует сохранить в формате xlsx.
Ответ: 1842
