<span>C:\</span><span>SIDOROV\</span><span>POPOV\</span>Help.txt
C:\SIDOROV\<span>FOTO\</span><span>About.txt
</span><span>C:\SIDOROV\FOTO\Cat.jpg</span>
C:\<span>FOTO\</span><span>News.doc
</span><span>C:\FOTO\friends.jpg
</span><span>C:\FOTO\Dog.jpg</span>
Количество точек:
256*2*128*2= 2^(17)
2Мб (Мбит или Мбайт ???????)
объём памяти: 2 Мбайта=2*2^23 = 2^(24) бит ?
2 Мбита=2*2^20 бит = 2^21 бит ?
глубина цвета: объём памяти/кол точек =
= 2^24 / 2^17 =2^7=128 бит ?? если Мб - Мбайт
или 2^21/2^17 = 2^4 =16 бит ?? если Мб -Мбит
2)
F =5,1Мбайт = 5,1*2^20 бит =5 347 737,6 байт
t=2*60 =120c
разрядность =5347737,6 / (22050*120)= 16 бит
Var s,p1,p2:string;
a:array['A'..'Z'] of byte;
n,i,j,f:integer; c,sim:char;
begin
readln(n);
readln(s);
for c:='A' to 'Z' do a[c]:=0;
for i:=1 to length(s) do
a[s[i]]:=a[s[i]]+1;
p1:=''; p2:=''; f:=0;
for c:='A' to 'Z' do
begin
for j:=1 to a[c] div 2 do
begin p1:=p1+c; p2:=c+p2; end;
if (a[c] mod 2=1)and(f=0)
then begin sim:=c; f:=1; end;
end;
if f=1 then p1:=p1+sim;
p1:=p1+p2;
writeln(p1);
end.
Пример:
6
QAZQAZ
<span>AQZZQA
PS. Программа проверялась только для коротких (String) строк. Для длинных нужно использовать </span><span>AnsiString.</span>
(12*2^13)/(256*128)=(3*2^15)/2^15=3 бита
Ответ: 9 цветов
Чесно я не знаю просто мне очень надо балы пособирать извени другие напишу т
