1) 2^15< 65 000 <2^16 ---> 16=2^4 - бит для кодирования одного цвета
2) 2048*1024 = 2^11 *2^10=2^21 - количество пикселей
3) 2^4 * 2^21 =2^25 (бит) =2^22 (байт) =2^12(Кбайт) =2^2 (Мбайт)=4 Мбайт
Var A, I, O: Integer;
Begin
ReadLn(A);
For I:=100 to 999 do Begin
If I div 100 = A Then
O:=O+1;
if (I div 10)-(I div 100) = A then
O:=O+1;
If I - ((I div 10)*10) = A Then
O:=O+1;
End;
WriteLn(O);
End.
101110=1*2^5 + 1*2^3 + 1*2^2 + 1*2= 32+8+4+2=46
621=6*8^2 + 2*8 + 1= 384+16+1=401
64C= 6*16^2 + 4*16 +12=1536+64+12=1612
var s1,s2: string;
begin
writeln('Введите 2 слова:');
readln(s1);
readln(s2);
if s1[length(s1)]=s2[1]
then writeln('второе слово начинается с той же буквы, которой оканчивается первое слово')
else writeln('последняя буква первого слова отличается от первой буквы второго слова');
end.