Решение на фото. VAR общий для двух задач. Будут вопросы, пишите
Графический редактор Paint (paint — краска), входящий в набор стандартных инструментальных средств операционной системы Windows, предназначен для создания и редактирования черно-белых и цветных рисунков и чертежей. Рисунки, подготовленные в редакторе Paint, относятся к так называемой растровой<span> графике (см. главу 4), когда изображение на экране дисплея рассматривается как совокупность, состоящая из некоторого количества строк, а каждая строка состоит из некоторого количества точек, которые принято называть пикселами, то есть элементарными единицами изображения. Цвет </span><em>каждого </em><span>пиксела задается независимым от остальных образом. Весь набор пикселов, из которых состоит рисунок, образует двухмерный массив </span>— растр<span> или</span>битовую карту<span> изображения. Основным достоинством этого способа формирования изображения является его простота. Вместе с тем рисунки, построенные таким образом, плохо масштабируются, то есть увеличиваются или уменьшаются в размерах, так как при этом возникают существенные искажения изображения. Подготовленные в редакторе рисунки могут быть напечатаны на принтере, перенесены в документ, созданный в текстовом редакторе, или записаны в файл на дисковое устройство. Файлы, создаваемые редактором Paint, по умолчанию получают стандартное расширение .bmp (от bit map — битовая карта).</span>
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 шара - белый и чёрный. Вынимают наугад один шар. Вопрос, это белый шар?" и т.д. и т.п.
INPUT a$FOR i = 1 TO LEN(a$) b$ = MID$(a$, i, 1) IF i = LEN(a$) THEN ELSE h$ = h$ + b$ + "-" END IFNEXT iPRINT h$ + b$