2^N = 256; N= 8 - количество бит для одного пикселя
(2400 *8) бит : 8 бит = 2400 пикселей ( точек)
Const
nm = 50;{ предельное число товаров }
var
mn: array[1..nm] of string;
mk, ms: array[1..nm] of real;
i, k, n: integer;
min: real;
begin
Write('Введите число продуктов на складе (не более ', nm, '): ');
Readln(n);
min := 1e10;
for i := 1 to n do
begin
Write('Наименование продукта ', i, ': '); Readln(mn[i]);
Write('Количество и стоимость: '); Readln(mk[i], ms[i]);
if min > mk[i] then begin min := mk[i]; k := i end
end;
Writeln('На складе меньше всего продукта ', mn[k], ': ', mk[k],
' кг. стоимостью ', ms[k], ' руб. за 1 кг.')
end.
Каждый символ это один бит. "Вон та, крайнаяя справа - это наша Зорька." Всего получается 41 битов
Program p_2;
var
a : array[1..10,1..10] of integer; // двумерный массив.
i, j, p, o : integer;
begin
// Тут считаем,что массив уже получен
for i := 1 to 10 do
begin
p := 0;
o := 0;
for j := 1 to 10 do
if (a[i,j] > 0)
then p := p + 1
else o := o + 1;
if(o = p) then
for j := 1 to 10 do
write(a[i,j], ' ');
end;
end.