PascalВыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 uses crt; var s,s1:string; c:char; i,j,k:byte; begin writeln('Введите строку'); read(s); s1:=s;{сделаем копию строки, если строка не нужна, то можно и не делать} i:=1; while i<length(s1) do begin c:=s1[i];{запомним символ} k:=0; for j:=length(s1) downto i+1 do{с конца строки ищем такие же} if s1[j]=c then{если есть} begin k:=1;{фиксируем} delete(s1,j,1);{удаляем} end; if k=1 then delete(s1,i,1){если не один, удаляем} else i:=i+1;{иначе проверяем следующий} end; writeln('Символы по 1 разу'); if s1='' then write('Таких символов нет') else write(s1); end.
1. Для кодирования одного из 8 цветов требуется log(2)8 = 3 бита (2^3=8). Память, занимаемая одной фотографией: 512*256*3 бит = 512*256*3 / (8*1024) Кбайт = 48 Кбайт. Две фотографии займут 2*48 = 96 Кбайт
2. Для кодирования одного из 1024 цветов требуется log(2)1024 = 10 бит (2^10=1024). Объем одного изображения = 256*32*10 бит = 256*32*10 / (8*1024) Кбайт = 10 Кбайт. Количество изображений, которые можно прикрепить = 100/10 = 10
3. Глубина цвета = log(2)512 = 9 бит (2^9=512)
4. Количество точек отсканированного изображения = 4*16*64*16. 128 Мбайт = 128*1024 Кбайт = 128*1024*1024 байт = 128*1024*1024*8 бит. Глубина цвета = 128*1024*1024*8 / (4*16*64*16) = 16384 бит (как-то очень много).
512*256*3 бит = 512*256*3 / (8*1024) Кбайт = 48 Кбайт.
Две фотографии займут 2*48 = 96 Кбайт
2. Для кодирования одного из 1024 цветов требуется log(2)1024 = 10 бит (2^10=1024). Объем одного изображения = 256*32*10 бит = 256*32*10 / (8*1024) Кбайт = 10 Кбайт. Количество изображений, которые можно прикрепить = 100/10 = 10
3. Глубина цвета = log(2)512 = 9 бит (2^9=512)
4. Количество точек отсканированного изображения = 4*16*64*16.
128 Мбайт = 128*1024 Кбайт = 128*1024*1024 байт = 128*1024*1024*8 бит.
Глубина цвета = 128*1024*1024*8 / (4*16*64*16) = 16384 бит (как-то очень много).