Запросы к поисковому серверу. для каждого запроса указан его код – соответствующая буква от а до г. запишите в таблицу коды запросов слева направо в порядке возрастания количества страниц, которые нашёл поисковый сервер по каждому запросу. по всем запросам было найдено разное количество страниц. для обозначения логической операции «или» в запросе используется символ «|», а для логической операции «и» – символ «& ». a: логика & ( | программирование) б: логика & b: логика & & программирование г: логика |

#include <iostream>
#include <list>

using namespace std;

int main() {
    list<int>mylist;
    //Делаем со списком, что хотим
    mylist.push_back(1);
    mylist.push_back(2);
    mylist.push_back(3);
    mylist.push_back(-4);
    mylist.push_back(5);
    for (auto i : mylist) {
        cout << i << " ";
    }
    cout << "\n";
    //Удаляем последний отрицательный элемент
    auto it = mylist.end();
    while (*it > 0) {
        if (it == mylist.begin()) {
            cout << "Not found.\n";
            return 0;
        }
        it--;
    }
    //Делаем со списком, что хотим
    mylist.erase(it);
    for (auto i : mylist){
        cout << i << " ";
    }
    return 0;
}

//PascalABC.NET версия 3.3.5

var  ar: array[0..3] of integer;
  digits: array[0..9] of integer;
  out: array[1..4, 1..7]of integer;

begin
  for var i := 0 to 9 do
    digits[i] := 0;
  var sum := 0;
  for var i := 1 to 2 do
  begin
    out[i][1] := 1053;
    out[i][2] := 1077;
    out[i][3] := 1074;
    out[i][4] := 1077;
    out[i][5] := 1088;
    out[i][6] := 1085;
    out[i][7] := 1086;
  end;
  out[4][1] := 1053;
  out[4][2] := 1077;
  out[4][3] := 1074;
  out[4][4] := 1077;
  out[4][5] := 1088;
  out[4][6] := 1085;
  out[4][7] := 1086;

  out[3][1] := 1042;
  out[3][2] := 1077;
  out[3][3] := 1088;
  out[3][4] := 1085;
  out[3][5] := 1086;
  out[3][6] := 160;
  out[3][7] := 160;
  var num := readinteger('Введите четырехзначное число:');
  ar[3] := num mod 10;
  ar[2] := num div 10 mod 10;
  ar[1] := num div 100 mod 10;
  ar[0] := num div 1000;
  for var i := 0 to 3 do
    digits[ar[i]] += 1;
  for var i := 0 to 9 do
    try
      sum += digits[i] div digits[i];
    except
      on System.DivideByZeroException do   
end; 
for var i := 1 to 7 do
    write(chr(out[sum][i]));
end.