Сообщение содержит 30 символов, считая пробелы и точку. Следовательно информационный объем сообщения:
30 * 2 байта=60 байт
Const
n = 100;
var
a: array[1..n] of integer;
i: integer;
begin
//заполняем массив случайными значениями в диапазоне [0;100]
Randomize; //инициализация датчика случайных чисел
for i := 1 to n do a[i] := random(100);
i := 1; //1 - это два в нулевой степени
while i < n do
begin
writeln('a(', i, ')=', a[i]);
i := 2 * i; //удваиваем индекс, чтобы получить очередную степень двойки
end
end.
Результат работы программы:
a(1)=26
a(2)=21
a(4)=29
a(8)=74
a(16)=23
a(32)=44
a(64)=20
1 Регулюють
2 Не поширюється
3 Є об'єктом
4 Не використовувати
5 Використовувати
6 Крадене
1* 1 = 1
11 * 11 = 121
111 * 111 = 12321
1111 * 1111 = 1234321
11111 * 11111 = 123454321
то есть в произведении сначала цифры от 1..N, а потом обратно до 1, где N - количество цифр в множителях
Где числа и к чему строить блок-схему ааааааа??!!??!!!?!