<span>(A\/B)/\(¬A\/B)=
=(А+B)*(</span>¬A+B)=
=A*¬A+A*B+¬A*B+B*B=
=A*B+¬A*B+B=
=B
Begin
writeln (' .--I"""""""""":');
writeln (' / - I..............\');
writeln ('"-O-""""""O"O""-');
end.
Вариант Б) *1*.?о*
отсечка по расширению, попадет второй и четвертый файл
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
16777216 цветов можно закодировать 24 битами данных, т.к 2^24=<span>16777216
следовательно 1024*768*24=</span>18874368 бит = 2359296 байт (т.к. в 1 байте 8 бит) = 2304 Кбайт (делим на 1024) = 2,25 мегабайта