1 задача. Сколько существует целых положительных чисел, меньших 512₁₀, в двоичной записи...

Question

1 задача.

Сколько существует целых
положительных чисел, меньших 512₁₀,
в двоичной записи которых
встречается не менее шести единиц подряд?
В ответе укажите целое число.





2. задача. Модему, передающему информацию со
скоростью 512 байт/c,
потребовалось
1 минута и 4 секунды для того, чтобы передать растровое
изображение. Укажите максимальное количество цветов в палитре изображения, если
известно, что его размер составил 128x256 пикселей. Ответ запишите в виде
целого числа.

Answer 1

Program gt;
var a:array[1..100]of integer;
k,q,p,i,max:integer;
begin
for i:=1 to 512 do
begin
p:=i;
max:=0;
K:=0;
while p>0 do
begin
q:=p mod 2;
p:=p div 2;
if(q=1)then k:=k+1;
if(q=0)then begin
if(k>max)then max:=k;
k:=0;
end;
end;
if(max>=6)then writeln(i);
end;
end.
191
319
382
383
447
2)
размер 512 байт /c*64c=32768 байт
в изображении - 32768 пикселей
значит на пиксель отведен 1 байт памяти или 8 бит значит палитра 2^8 цветов или 256