1. Отметьте служебные слова, используемые при записи циклов на языке Паскаль.
Until, integer, then, else, to, do, for, while, program, var, if, repeat
2. Подчеркните высказывания, которые являются верными для языка программирования Паскаль.
-Тело цикла с оператором while из более чем одной команды необходимо записывать в составном операторе.
-Параметр цикла в операторе repeat после каждого выполнения тела цикла увеличивается на единицу.
-Параметр цикла с оператором for должен быть величиной целого типа.
-Тело цикла с оператором for всегда будет выполняться как минимум один раз.
-Цикл с оператором while выполняется, пока ложно условие цикла.
-Цикл с оператором repeat выполняется, пока ложно условие цикла

1) При использовании 16384 цветов для хранения одной точки требуется log(2)16384 = 14 бит. Количество точек рисунка = 9696*8 / 14 ≈ 5540

2) При использовании палитры из 65536 цветов для хранения одной точки требуется log(2)65536 = 16 бит = 2 байта. Объем видеопамяти = 1024*768*2 байт = 1024*768*2/1024 Кбайт = 1536 Кбайт = 1536/1024 Мбайт = 1,5 Мбайт

3) При использовании палитры из 16 цветов для хранения одной точки требуется log(2)16 = 4 бита. Необходимый объем видеопамяти = 640*480*4 бит = 640*480*4/8 байт = 320*480 байт = 320*480/1024 Кбайт = 150 Кбайт. ответ: 256 достаточно для работы

#include <iostream>

#include <vector>

#include <set>

#define ll long long

using namespace std;

signed main() {

   ll n;

   cin >> n;

   vector<pair<ll,ll>> a(n);

   vector<ll> pref(n,0),d(n,0),ans(n,0);

   set<ll> s;

   for(ll i = 0; i < n; i++){

       cin >> a[i].first;

       a[i].second = i;

       s.insert(a[i].first);

       if(i == 0)

           pref[i] = a[i].first;

       else

           pref[i] = pref[i-1] + a[i].first;

       d[i] = s.size();

   }

   if(d[n-1] > 1 || n == 1)

       ans[a[n-1].second] = 1;

   for(ll i = n - 2; i >= 0; i--){

       if(pref[i] > a[i + 1].first && ans[a[i+1].second] == 1 && d[i] > 1)

           ans[a[i].second] = 1;

   }

   for(ll i = 0; i < n; i++)

       cout << ans[i] << " ";

}

Должна быть 100 :)