с Информатикой В кодировке Unicode на каждый символ отводится 32 бита. Определите в этой кодировке информационный объём следующей строки в байтах: Где родился, там и сгодился
Пусть видеопамять компьютера имеет объем 512 кБайт. Размер графической сетки - 640 х 480. Сколько страниц экрана одновременно разместится в видеопамяти при палитре из 16 цветов; 256 цветов?
Для 16 (2^4) цветов нужно 4 бита на пиксель, для одного экрана нужно 640*480*4=1228800 бит=153600 байт, память 512*1024=524288 байт, посчитаем 524288 /153600=3,41333 т.е. 3 страницы.
Для 256 (2^8) цветов нужно 8 бит на пиксель, для одного экрана нужно 640*480*8=2457600 бит=307200 байт, память 512*1024=524288 байт 524288 /307200=1,70667 т.е. 1 страница.
Var S:string; i:integer; begin ReadLn(S); i:=1; While i<=Length(S) do Begin if ('0'<=S[i])and(S[i]<='9') then Case S[i] of '0': Begin Delete(S,i,1); Insert('ноль',S,i); end; '1': Begin Delete(S,i,1); Insert('один',S,i); i:=i+3 end; '2': Begin Delete(S,i,1); Insert('два',S,i); i:=i+2 end; '3': Begin Delete(S,i,1); Insert('три',S,i); i:=i+2 end; '4': Begin Delete(S,i,1); Insert('четыре',S,i); i:=i+5 end; '5': Begin Delete(S,i,1); Insert('пять',S,i); i:=i+3 end; '6': Begin Delete(S,i,1); Insert('шесть',S,i); i:=i+4 end; '7': Begin Delete(S,i,1); Insert('семь',S,i); i:=i+3 end; '8': Begin Delete(S,i,1); Insert('восемь',S,i); i:=i+5 end; '9': Begin Delete(S,i,1); Insert('девять',S,i); i:=i+5 end; end; i:=i+1 End; WriteLn(S); ReadLn; end.
Для того, чтобы данная программа заработала, нажмите: Файл → создать → простейшая программа.
Если русские буквы отображаются правильно, нажмите правой кнопкой мыши по коду, выберите: параметры файла → кодировка → Ansi (cp1251).
108
Объяснение:
Всего символов 27; 27* 32=864 (бита), 864/8=108 (байт)