надо
Дана программа:
var s, k: integer;
begin
readln(s);
readln(k);
if s <= 2 * k
then writeln(‘ДА’)
else writeln(‘НЕТ’) end.
Было проведено 9 запусков программы, при которых в качестве значений переменных s и k вводились следующие пары чисел:
(1, 2); (8, 4); (6, –12); (–5, –5); (3, 11); (–10, 12); (–10, –2); (4, 1); (2, 5). Сколько было запусков, и каких, при которых программа напечатала «нет»? (Перечислить наборы)

Дана программа:
var s, k: integer;
begin
readln(s);
readln(k);
if (s < 7) and (k < 7)
then writeln(’ДА’)
else writeln(’НЕТ’)
end.
Было проведено 9 запусков программы, при которых в качестве значений переменных s и k вводились следующие пары чисел:
(1, 1); (10, 7); (6, –12); (6, 6); (5, 2); (–10, –8); (–10, 11); (3, 1); (12, 8). Сколько было запусков, и каких, при которых программа напечатала «ДА»? (Перечислить наборы)
Дана программа:
var s, k: integer;
begin
readln(s);
readln(k);
if (s < 8) and (k < 8)
then writeln(’ДА’)
else writeln(’НЕТ’ end.
Было проведено 9 запусков программы, при которых в качестве значений переменных s и k вводились следующие пары чисел:
(1, 1); (10, 8); (9, –12); (6, 6); (5, 15); (–10, -8); (–10, 11); (3, 1); (1, 8).. Сколько было запусков, и каких, при которых программа напечатала «ДА»? (Перечислить наборы)

Одно из решений, возможно, не самое эффективное
#include <iostream>
#include <iomanip>
int main()
{
    using namespace std;

    //исходная последовательность
    const int N = 8;
    double Arr[N] = { 14.2, -3.4, 7.8, -3.1, 8.2, 98.22, -7, 12 };

    //вывод на экран исходной последовательности
    for (int i = 0; i < N; ++i)
        cout << Arr[i] << "  ";
    cout << endl;

    //подсчитаем количества отрицательных и неотрицательных элементов
    int kpos = 0;
    int kneg = 0;
    for (int i = 0; i < N; ++i)
        if (Arr[i] < 0)
            ++kneg;
        else
            ++kpos;

    //создадим массивы отрицательных и неотрицательных элементов
    double * ArrNeg = new double[kneg];
    double * ArrPos = new double[kpos];

    int kn = 0, kp = 0;
    for (int i = 0; i < N; i++)
        if (Arr[i] < 0)
            ArrNeg[kn++] = Arr[i];
        else
            ArrPos[kp++] = Arr[i];

    cout << "Enter a, b, c or d: ";
    char ch;
    cin >> ch;

    if (ch == 'a' || ch == 'b' || ch == 'c' || ch == 'd')
    {
        switch (ch)
        {
            //пункт а)
            case 'a':
                for (int i = 0; i < kneg; ++i)
                    Arr[i] = ArrNeg[i];
                for (int i = 0; i < kpos; ++i)
                    Arr[i + kneg] = ArrPos[i];
                break;

                //пункт б)
            case 'b':
                for (int i = 0; i < kneg; ++i)
                    Arr[i] = ArrNeg[--kn];
                for (int i = 0; i < kpos; ++i)
                    Arr[i + kneg] = ArrPos[i];
                break;

                //пункт в)
            case 'c':
                for (int i = 0; i < kneg; ++i)
                    Arr[i] = ArrNeg[i];
                for (int i = 0; i < kpos; ++i)
                    Arr[i + kneg] = ArrPos[--kp];
                break;

                //пункт г)
            case 'd':
                for (int i = 0; i < kneg; ++i)
                    Arr[i] = ArrNeg[--kn];
                for (int i = 0; i < kpos; ++i)
                    Arr[i + kneg] = ArrPos[--kp];
                break;
        }
    }
    else
        cout << "You entered wrong symbol\n";

    for (int i = 0; i < N; ++i)
        cout << Arr[i] << "  ";
    cout << endl;
    delete[] ArrNeg;
    delete[] ArrPos;
    return 0;
}

1) на что мы используем Интернет (контакты, поиск информации для обучения, поиск инфы для жизни и т. д. ) 2) чем заменить все эти вещи без Инета (телефон и письма, учебники, и т. д.) 3) в чём разные хуже или лучше (напр, по телефону можно так же быстро поговорить, как и через Инет, но нельзя быстро переслать печатный текст. Бумажное письмо очень приятно писать и получать, но оно идёт слишком медленно, контакт по интернету самый быстрый, но немного теряется тепло живого общения) и так по всем пунктам. 4) большие области на нашей планете, где нет Инета или он плохой (медленный) и редко встречается (Африка). 5) в некоторых восточных странах Инет регулируется на государственном уровне (Китай, Корея) 5) вывод - в принципе, без Инета прожить можно, но во многих областях без него гораздо хуже и медленнее.