1. Для кодирования одного из 64 цветов требуется log(2)64 = 6 бит (2^6=64).
Объем информации в своде законов:
512*256*6 бит = 512*256*6 / 8 байт = 512*256*6 / (8*1024) Кбайт = 96 Кбайт
2. 128 Кбайт = 128*1024 байт = 128*1024*8 бит
Память для одного пикселя: 128*1024*8 / (512*256) бит = 8 бит
Количество цветов = 2^8 = 256
Дано
а=640
b=250
N=16
Найти V
V=a*b*I ( i- глубина цвета) I неизвестна, найдем из формулы Хартли
N=2^I 16=2^I 2^4=2^I i=4 бит
V=640*250*4=640000 бит , переводим в КБ
640000: 8:1024=78,125 Кб
Var
i,a:integer;
ch:set of char;
n:string;
Begin
Write('Введите число ');
Readln(n);
ch:=['0'..'9'];
for i:= 1 to length(n) do
if n[i] in ch then a:=a+1;
case a of
1:Write('В числе ',a,' цифра');
2..4:Write('В числе ',a,' цифры')
else Write('В числе ',a,' цифр');
End;
<span>End. </span>
1) const n=8 - константа, n нельзя будет присвоить другие значения
2) <span>Type is = array [1..n] of integer; это тип с названием "is" он равен массиву</span>
<span>3) var a:is; a-имеет тип is => это массив</span>
<span>4) begin - начало программы</span>
<span>5)end. - конец программы</span>