В одном множестве 74 элементов
В другом множестве 15 элементов
Максимальное количество элементов в их пересечении равно количеству элементов в меньшем множестве
Ответ: 15
................................................
1,5 Мб=1,5*1024*1024 байт
Необходимая память для 1 пикселя (глубина цвета):
1,5*1024*1024/(1024*512) = 3 байта = 3*8 бит = 24 бита
Максимальное количество цветов = 2^24 = 16 777 216
1. 415(10)=110011111(2) = 637 (8) =19F(16)
2. 10011(2) =19(10) 314(8)=204(10) A8(16)=168(10)
3. a) 23(16)=100011(2)
б) АС(16)=254(8)
в) 10111101(2)=275(8)
г) 101011101(2)=ВD(16)
д) 101010(8)=1000001000001000(2)
е)23(10)=17(16)
Function aToDec(n:string;k:integer):longint;
{ Перевод из системы по основанию k в десятичную }
var
i:integer;
pa,s:longint;
begin
s:=0;
pa:=1;
for i:=Length(n) downto 1 do begin
s:=s+pa*(Ord(n[i])-Ord('0'));
pa:=pa*k
end;
aToDec:=s
end;
function DecToa(n:longint;k:integer):string;
{ Перевод из десятичной системы в систему по основанию k }
var
s:string;
c:integer;
begin
s:='';
c:=Ord('0');
while n>0 do begin
s:=Chr(c+n mod k)+s;
n:=n div k
end;
DecToa:=s
end;
function AtoB(s:string;A,B:integer):string;
{ Перевод из системы по основанию A в систему по основанию B }
begin
AtoB:=DecToa(aToDec(s,A),B)
end;
var
a,b:integer;
n:string;
begin
Write('Число в c/c по основанию [2;10]: '); Readln(n);
Writeln('Укажите исходное и результирующее основания: ');
Read(a,b);
Writeln(n,'(',a,') = ',AtoB(n,a,b),'(',b,')');
end.
Пример решения
Число в c/c по основанию [2;10]: 643342414
Укажите исходное и результирующее основания:
7 9
643342414(7) = 80050347(9)