решить кроссворд.
1) Статистическая функция (10 букв)
2) Статистическая функция (12 букв)
3) Прямоугольная часть таблицы (8 букв)
4) Тип данных в электронных таблицах (7 букв)
5) Воспроизведение поведения сложной системы, элементы которой могут вести себя случайным образом (8 букв)
6) Упорядочение данных (10 букв)
7) Наименьшая структурная единица электронной таблицы (6 букв) ​

#1
Статья набранная на компьютере содержит 8 страниц по 40 строк, в 1 строке 64 символа,определите информационный объем статьи в КБ, в кодировке Unicode.
Решение:
В кодировке Unicode, в распространенной версии один символ кодируется 2 байтами, т.е. 16 битами. 
Т.е. мы умножаем весь объём:8*40*64*16=327680 (бит) - объём статьи 
Теперь необходимо полученную величину в битах перевести в Кб.
1 байт = 8 бит
1 кб = 1024 байт
Поэтому мы в начале переводим в байты, а далее в Кб: 
327680:8:1024=40 Кб
ответ: 40 Кб - объем статьи

#2
Определите информационный объем слова из 24 символов, в кодировке Unicode.
Решение:
Как и было сказано выше, в данной кодировке 1 символ = 16 бит
Тогда мы 24*16=384 бит - объём слова
ответ: 384 бит или 48 байт.

#3
Определите объем сообщения в символе из 20 символов в кодировке КОИ-8.
Решение: 
В кодировке КОИ-8 каждый символ = 1 байту, или 8 битами.
Тогда 8 * 20 = 160 бит - объем сообщения
ответ: 160 бит или 20 байт.

Program Randomizer;

Var a,b,i : Integer;

Const n = 5;//Кол-во попыток

 Begin  

  WriteLn('                Вас приветствует "Randomizer!™"');

  ReadLn;

  WriteLn('    Компьютер загадал число от 1 до 100, ваша задача отгадать его.');

  WriteLn('                   Приступим!(Нажмите Enter)');

  ReadLn;

  WriteLn('                         Введите число');

  i:= 1;

  a:=random(100);

  While ((b <> a) and (i < n + 1)) do //Программа не завершится, пока b не станет равной a или n (попытки) не закончатся.  

   Begin

    //If b > 100 then WriteLn('Ошибка - число превышает 100');//Нужно, чтобы при вылете ошибки программа не завершалась и попытки не уменьшались.

    ReadLn(b);

    If b = a then WriteLn('Вы угадали!') Else

    If ((b <> a) and (i <> n)) then WriteLn('Попробуйте другое число...') Else  WriteLn('          Попытки закончились! Перезапустите программу.');

    inc (i);

   End;

 End.