# Python 3.X
sym = {10: 'A', 11: 'B', 12: 'C', 13: 'D', 14: 'E', 15: 'F'}
def exp_in(n, g):
ret = 1
while n ** ret < g:
ret += 1
return ret - 1
def base(n, to_base):
''' 2 <= to_base <= 16 '''
if not 2 <= to_base <= 16:
raise ValueError('2 <= to_base <= 16')
ret = ''
for e in range(exp_in(to_base, n), -1, -1):
t = to_base ** e
c = n // t
ret += sym.get(c, str(c))
n %= t
return ret
n, b = [int(input(x)) for x in ['Число: ', 'Степень (2 <= n <= 16): ']]
print('{} (10) = {} ({})'.format(n, base(n, b), b))
Uses GraphABC;
begin
Pen.Color := clblue;
brush.Color :=clRed;
DrawRectangle(100,200,400,400);
fillRect(100,200,400,400);
moveto(90,200);
lineto(100,150);
lineto(400,150);
lineto(410,200);
lineto(90,200);
FloodFill(100,180,clblue);
brush.Color := clCyan;
fillRect(150,250,200,300);
fillRect(250,250,300,300);
<span>end.</span>
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
uses GraphABC;
procedure OutLightGreen(n:integer);
begin
var OldColor:=FontColor;
SetFontColor(clLightGreen);
Write(n:5);
SetFontColor(OldColor)
end;
begin
var a:=MatrixRandom(10,14,-180,320);
var m:=ReadInteger('n=');
Writeln;
SetFontColor(clWhite);
Font.Style:=fsBold; Font.Name:='Courier';
Brush.Color:=clBlack; Window.Clear(clBlack);
var k:=0;
for var i:=0 to 9 do begin
for var j:=0 to 13 do
if a[i,j]>m then begin
Inc(k); OutLightGreen(a[i,j]) end
else Write(a[i,j]:5);
Writeln
end;
SetFontColor(clRed);
Writeln('Количество элементов равно ',k)
end.
1)***
Считаем что в черно белом изображении 2 цвета,
значит 2 цвета = 2^1, глубина цвета 1 бит
Объём памяти
240*140*1 = 33600 бит
33600 бит / 8 = 4200 байт /1024 = 4,1 Кбайт
2)***
8 Кбайт *1024 = 8192 байт *8 = 65536 бит
65536 бит / (340*180) = 1,07 бит //видимо ошибка в условии
допустим глубина цвета 1 бит
2^1 = 2, т.е в изображении используется 2 цвета (т.е оно черно белое)