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

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. 1913193823834472)размер 512  байт  /c*64c=32768 байт в изображении - 32768 пикселей значит на пиксель отведен 1 байт памяти или 8 бит значит палитра 2^8 цветов или 256

1)10см=3,937дюма

dpi - точек на дюйм

3,937*1000=3937 - точек

3937*3937=15499969 точек

каждая точка кодируется 2-мя байтами 

всего  30999938 байт

1 мегабайт = 1024*1024=1048576

на картинку  29,56 мегабайта

2) 256 1 байт

200*100=20000 пикселей

1 килобайт = 1024 байта

картинка займет 20000/1024=19,5 килобайта

 

ps а вообще, каждое нужно писать отдельно