var
k,l,n,i: integer;
a: array[1..100] of boolean;
b: char;
begin
k:=0; l:=0;
write ('Введите длину массива: ');
readln (n);
writeln ('Введите массив:');
for i:=1 to n do begin
readln (b);
case b of
'F','f': a[i]:=false;
'T','t': a[i]:=true;
else begin writeln ('неверные данные '); exit; end;
end;
if a[i]=true
then k:=k+1
else
if (k>0) and (k>l)
then begin l:=k; k:=0 end
else k:=0;
end;
if (k>0) and (k>l) then l:=k;
for i:=1 to n do begin
write (a[i]:7);
if i mod 8 =0 then writeln;
end;
writeln;
writeln ('Длина = ',l)
end.
----------------результат:-----------------
Введите длину массива: 16
Введите массив:
t
t
t
t
t
t
f
t
t
t
t
t
f
t
t
t
True True True True True True False True
True True True True False True True True
Длина = 6
А)3*1024*1024*8=
б)19*1024*8=
г)15*8=
Да, верно, потому что информация находится на страницах книги, а страницы не были вырваны.Значит в истрепанной книге столько же информации, как и в новой.
1. Для кодирования одного пикселя, который может принимать один из 16 цветов необходимо
i1 = ln(16) = 4 бит;
Для кодирования одного пикселя, который может принимать один из <span>4294967296</span> цветов необходимо <span>i2 = ln(1</span><span>4294967296</span><span>) = 32 бита;</span>
<span>Ответ: P = i2/i1 = 8 - во столько раз увеличится объем занимаемой памяти изображения.</span>
<span>2. Определим количество памяи которое занимает изображение:</span>
<span>S = 640*480*3= 921600 ,байт</span>
Определим скорость модема:
Ответ: V = 921600/256 = 3600 байт/с
Для записи часов используются 24 значения (0-23) 16<24<32 32=2^5, т.е. запись одного показания времени занимает 5 бит. То-же самое для влажности (48-62) 8<15<16 16=2^4 и температуры (13-22) 8<10<16 16=2^4. Получаем, что сообщение с 3 показателями имеет объем 5+4+4=13 бит. 13*30=390 бит