126:2=63 ост=0
63:2=31 ост<span>=1 </span>
31:2= 15 ост<span>=1 </span>
15:2=7 ост<span>=1 </span>
7:2=3 ост<span>=1 </span>
3:2=1 ост<span> =1 </span>
1:2=0 ост<span>=1 </span>
126(10)=1111110 (2)
Все данные заполнены в следующих картинках.
Если это монохромный, то это два цвета.
По формуле N = 2 в степени i определяем N. Т.к. цветов всего два, то на один пиксель идёт 1 бит информации. Значит, i = 1 бит (минимальное значение на 1 цвет).
Информационный объём
I = k*i
Считаем К, т.е. сколько пикселей в монохромном рисунке. Если это квадрат, то у него все стороны равны. Значит, K = 64*64 = 4096 пикселя.
I = 1 бит*4096=4096 бит.
Разделим на 8 (8бит=1 байт) и получим 512 байт.
Var
x:integer;
begin
writeln('x=');
readln(x);
writeln('вы ввели:',x);
x:=0;
writeln('произошла замена. Теперь x=',x);
end.
var
v:array[1..100] of integer;
i,j,n,b:integer;
begin
randomize;
write('vvedite razmernost'' massiva: '); readln(n);
writeln('============ Ishodnii massiv ============='); writeln;
//Заполним массив случайными числами
for i := 1 to n do
begin
v[ i]:=random(100)-50;
write(v[ i]:4);
end;
writeln;
// организуем сортироваку от минимального
// к максимальному элементу массива
for i:=1 to n-1 do
for j:=i+1 to n do
if v[ i]>v[ j] then
begin
b:=v[ i];
v[ i]:=v[ j];
v[ j]:=b;
end;
writeln;
write('=========== Otsortirovannii massiv =======');writeln;writeln;
write('ot min k max: ');writeln;
for i := 1 to n do
write(v[ i]:4); writeln; writeln;
write('ot max k min: '); writeln;
for i := n downto 1 do
write(v[ i]:4);
readln;
end.