Подсчитайте объём информации в словах ; название словаря , составитель , издательство

название словаря - 17 бит (если с пробелом , без пробела 16 бит)

составитель - 11 бит

издательство - 12бит

Мне лениво каждый раз вводить значения от руки, поэтому массив заполняется рандомно (в нет четкого указания) но если нужен ввод с клавы, его нетрудно заменить: вместо       a[i]: =random(20);         write(a[i]: 4)  надо       readln (a[i]) program aaa; var a: array[1..7] of integer; i: byte; begin     randomize;   //запускаем генератор случайных чисел       // формируем и одновременно выводим массив     writeln ('исходный массив: ');   for i: =1 to 7 do     begin       a[i]: =random(20);   //рандомное значение        write(a[i]: 4)   //вывод массива     end;   writeln;       //проверяем условие и выводим номера нужных элементов:   writeln ('номера нечётных элементов, стоящих на чётных местах : ');   writeln;   for i: =1 to 7 do     if ((i mod 2)=0) and ((a[i] mod 2)=1)       then writeln (i: 3)  end. результат работы программы: исходный массив:   13   16   7   11   11   5   17 номера нечётных элементов, стоящих на чётных местах :   4   6

// pascalabc.net 3.2, сборка 1367 от 20.12.2016 // внимание! если программа не работает, обновите версию! function nok(a,b: integer): integer; begin   if a=b then result: =a   else begin       var c: =a*b;       repeat           if a> b then a: =a-b else b: =b-a;           until a=b;       result: =c div a   end end; begin   var n: =readinteger('n=');   var l: =new list< integer> ;   var m: =n;   while m> 0 do begin       var d: =m mod 10;       l.add(d);       m: =m div 10       end;   var a: =l.where(x-> x< > 0).distinct.toarray;   var k: =a[0];   if a.length> 1 then       for var i: =1 to a.length-1 do k: =nok(k,a[i]);   range(k,n,k).println; end. пример n= 227 14 28 42 56 70 84 98 112 126 140 154 168 182 196 210 224 как это работает? если число делится на каждое из нескольких чисел, то оно делится и на нод этих чисел, функция нод позволяет найти нод пары чисел, а её применение несколько раз позволит найти нод для необходимого набора чисел. создаем объект типа "список целых" и цифра за цифрой помещаем туда числа, с цифрами заданного числа n. затем просматриваем список и все уникальные элементы, за исключением нуля, заносим в массив а. далее вычисляем нод для всех элементов полученного массива. понятно, что первым в последовательности искомых чисел будет стоять нод, а далее пойдут числа, которые будут увеличиваться каждый раз на нод, пока не достигнут n.