1100111111=1*2^9+1*2^8+0*2^7+0*2^6+1*2^5+1*2^4+1*2^3+1*2^2+1*2^1+1*2^0=512+256+0+0+32+16+8+4+2+1=831
111111111=1*2^8+1*2^7+1*2^6+1*2^5+1*2^4+1*2^3+1*2^2+1*2^1+1*2^0=511
1100011111=1*2^9+1*2^8+0*2^7+0*2^6+0*2^5+1*2^4+1*2^3+1*2^2+1*2^1+1*2^0=799
В двоичную: (делим на 2каждое число до 1 или 0)
1) 4321=1000011100001
-4320 2160 2
1 -2160 1080 2
0 -1080 540 2
0 -540 270 2
0 -270 135 2
0 -134 67 2
1 -66 33 2
1 -32 16 2
1 -16 8 2
0 -8 4 2
0 -4 2 2
0 -2 1
0
Теперь собираем от последнего остатка до первого выделенные цифры.
2) 3333=110100000101
3) 7372 =1110011001100
Program zadacha;
Const n = 10;
Type mas=array[1..n] of integer;
Var s,i,k,d:integer;
m:mas;
Begin
s:=0;
k:=0;
readln(d);
For i:=1 to n do
read(m[i]);
For i:=1 to n do
if m[i]<d then begin
s:=s+m[i];
k:=k+1;
end;
writeln('Сумма чисел < d = ',s,' Колиество чисел < d = ',k);
end. (Это решение для случая если вы вводите сразу весь массив чисел)
Program zadacha;
Const n = 10;
Var s,i,k,d,m:integer;
Begin
s:=0;
k:=0;
readln(d);
for i:=1 to n do begin
readln(m);
if (m < d) then begin
s:=s+m14;
k:=k+1;
end;
end;
writeln('Сумма чисел < d = ',s,' Колиество чисел < d = ',k);
end. (А это решение для того случая когда вы вводите элементы по одному )
глубина цвета = 4 бита
V = 800*600*4 = 1920000 бит = 240000 байт ≈ 234,38 Кб