<span>
1. 56</span>₁₀-> X₂
<span><span>56/2=28 остаток 0
</span><span>
28/2=14 остаток 0
</span>
<span>
14/2=7 остаток 0
</span>
<span>
7/2=3 остаток 1
</span>
<span>
3/2=1 остаток 1
</span>
1/2=0 остаток 1
</span>56₁₀ = 111000₂
2.
176₁₀-> X₂<span>
<span><span>176/2=88 остаток 0
</span><span>
88/2=44 остаток 0
</span>
<span>
44/2=22 остаток 0
</span>
<span>
22/2=11 остаток 0
</span>
<span>
11/2=5 остаток 1
</span>
<span>
5/2=2 остаток 1
</span>
<span>
2/2=1 остаток 0
</span>
<span>
1/2=0 остаток 1
</span>
</span></span>176₁₀ = 10110000₂
<span>3.
</span>10001₂->X₁₀
2^4+2^0=17
10001₂ = 17₁₀
4.
101011₂->X₁₀
2^5+2^3+2^1+2^0=43
10001₂ = 43₁₀
Var a:byte;
begin
write('a - ');
readln(a);
writeln(a div 100);
writeln((a div 10)mod 10);
writeln(a mod 10);
readln
end.
1) 640 × 350 =224000 пикселей в данном изображении
2) N = 2^i
16 = 2^i
i = 4 бит - глубина кодирования одного пикселя изображения
3) 4 бита × 224000 = 896000 бит = 112000 байт = 109,375 Кбайт занимает изображение в видеопамяти ПК
Program zadanie;
const lmax=10;
var n,i:integer; a:array [1..lmax] of integer; n1:real; flag: boolean;
begin
repeat
writeln('Введите длину массива меньше ',lmax);
read(n1);
until (n1>0) and (n1<=lmax) and (n1=round(n1));
n:=round(n1);
writeln('Введите целые элементы массива');
for i:=1 to n do
begin
repeat
read(n1);
if (n1<>round(n1)) then writeln('Введите ЦЕЛЫЙ элемент');
until (n1=round(n1));
a[i]:=round(n1);
end;
flag:=false;
i:=0;
repeat
i:=i+1;
if (a[i]mod 2=0) then
begin
flag:=true;
writeln('Номер первого четного элемента - ',i);
end;
until flag or (i=n);
if (flag=false) then writeln('0')
end.