Смотря сколько цветов. Если в Палитре 256 цветов, то 256 * 4 = 1024 бита памяти. Если не так то поправьте меня.
Var s,s1:string; p:integer;
begin
writeln('Введите строку:');
readln(s);
s1:=s+' ';
while s1<>'' do
begin
p:=pos(' ',s1);
if (p>1)and(s1[p-1]='я') then writeln(copy(s1,1,p-1));
delete(s1,1,p);
end;
<span>end.</span>
Ну если нужно просто перевести из десятичной системы счисления в двоичную то получим:
1111(10)= 1*2^10+0*2^9+0*2^8+0*2^7+1*2^6+0*2^5+1*2^4+0*2^3+1*2^2+1*2^1+1*2^0= 10001010111(2)
Ответ:10001010111(2)
Какой именно их много и я много знаю
program crash;
var n, k: integer;
r: real;
begin
write('n = ');
readln(n);
k := 0;
r := 0;
while n > 0 do
begin
k := k + 1;
r := r + (n mod 10) / (k * k);
n := n div 10
end;
writeln('r = ', r:0:14);
readln
end.