Протабулировать функцию у = fi+8(x) на отрезке [-i; i] с шагом h = 0,1i, где i - номер варианта. результаты вычислений вывести на экран в виде таблицы пар чисел х, у. выполнить дополнительно своего i-го варианта поиска данных по некоторому критерию (признаку). если искомых данных нет, вывести об этом сообщение.
17. вычислить сумму квадратов и произведение всех значений функции у, для которых справедливо неравенство 2,5 < у < 5.
21. найти среднее арифметическое тех значений функции у, для которых выполняются неравенства у < 1 или у > 8.

1. Возьмем некого человека X. Остается 16 человек, значит, найдется язык на котором этот человек говорит с группой из 6 человек (16 / 3). Пусть этот язык будет x.

2. Теперь у нас есть группа из 6 человек. Возьмем в ней человека Y. Он должен общатся с группой на другом языке, иначе, уже есть 3 человека с языком x. Останется 5 человека, значит, найдется язык на котором этот человек говорит с группой из 3 человек (5 / 2). Пусть этот язык будет y.

3. Далее, людям из этой группы из 3-ех человек надо как-то общатся. Если они говорят на третьем языке, то их трое - доказнно. Еще они знают языки x и y. Если двое из них общаются на иксе, то они состаляют тройку с A, если на y с B. Доказанно.

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.