Черепашке был дан для исполнения следующий алгоритм:

Повтори 100 [Вперёд 90 Налево 60]

Какая фигура появится на экране?

Квадрат
Равносторонний треугольник
Незамкнутая ломаная
Шестиугольник
Стоугольник
Шестидесятиугольник

номер2.
Исполнитель Шифровальщик из одной цепочки символов получает новую цепочку следующим образом:

Если цепочка начинается с согласной буквы, Шифровальщик переставляет первую букву в конец слова, если же цепочка начинается с гласной, то меняет местами первую и вторую буквы.

Этот алгоритм дважды применили к слову МАТРОСКИН.

Какое слово получилось?

номер3.

Исполнитель Удвоитель работает с целыми числам. Он умеет выполнять только две команды:

прибавь 1
умножь на 2
Исполнитель выполнил программу 12121 и получил число 19. С какого числа он начал свою работу?

номер4.
Миша нарисовал башню с записанного ниже алгоритма. Какова высота его башни?

алг Башня
нач
Кубик
Кубик
вправо
Кубик
Кубик
влево
кон
алг Кубик
нач
закрасить; вправо
закрасить; вверх
закрасить; влево
закрасить
кон

Для количественного измерения информации введено понятие количество информации (i) 
Одно из понятий количества информации это мера уменьшения неопределенности  знания 
Измеряется эта величина в битах. Формула  N=2^i  
где N - количество возможных событий (вариантов)
Например, игра Крестики-нолики (на поле 8х8) . После первого хода первым игроком второй игрок имеет 6 бит информации (всего 64 поля   2^i=64 отсюда i=6 то есть 6 бит)
Шестнадцатеричная система имеет 16 знаков (в ней применяются 0 1 2 3 4 5 6 7 8 9 0 А B C D E F)  2^i=16  отсюда  i=4 бит (такое количество информации содержит один разряд 16-ричного числа (например 123А77F?67 вместо знака вопроса какую цифру можно поставить в этой системе? любую из 16 -ти знаков это 4 бита )
Аналогичный вопрос для двоичной системы (в двоичной системе  число состоит из  нулей и единиц (какая цифра стоит на таком-то месте (ОДНА из двух) i=1 бит 
по формуле N=2^i   N=2  2^i=2    i=1 бит
Для восьмеричной системы i=3 бит

Const l = 5;
var
a: array[1..l] of integer;
d: array[1..l] of real;
i, otr, k, m: integer;
begin
otr:=0; k:=0; m:=0;
//считаем массив а
for i:=1 to l do
  begin
    readln(a[i]);
    //если ввели положительное число,увеличим перем. otr на 1
    if a[i] < 0 then
      inc(otr);
    //если ввели отрицательное число,увеличим перем. k на 1
    //и к переменной m прибавим элемент
    if a[i] > 0 then
      begin
        inc(k);
        inc(m, a[i]);
      end;
  end;
//заполним массив d
for i:=1 to l do
  //если индекс четный, присвоим элементу otr
  //иначе присвоим среднее арифметическое
  if i mod 2 = 0 then
    d[i] := otr
  else
    d[i] := m/k;
end.