Данный ip делят на подсети с максимальной экономией адресного на 400 подсетей.

192.127.17.34/13

1)Введите адрес 14-го компьютера в 300-ой подсети

2)Сколько таких подсетей всего будет?

Var  
i, j, k : integer; 
 a : array [0..9,0..9] of char; 
procedure U(i,j:integer);  
var c : char; 
begin 
 c:=a[i,j]; a[i,j]:=' ';  
if (c='W')and(a[i+1,j]='B') then U(i+1,j);
  if (c='B')and(a[i+1,j]='W') then U(i+1,j); 
 if (c='W')and(a[i-1,j]='B') then U(i-1,j); 
 if (c='B')and(a[i-1,j]='W') then U(i-1,j); 
 if (c='W')and(a[i,j+1]='B') then U(i,j+1);  
if (c='B')and(a[i,j+1]='W') then U(i,j+1); 
 if (c='W')and(a[i,j-1]='B') then U(i,j-1); 
 if (c='B')and(a[i,j-1]='W') then U(i,j-1); 
end; 
begin  
assign(input,'input.txt');
reset(input); 
 assign(output,'output.txt');
 rewrite(output);  
for i:=1 to 8 do begin  for j:=1 to 8 do
 read(a[i,j]); 
 readln  
end;  
for i:=1 to 8 do
 begin 
 a[0,i]:=' '; a[9,i]:=' ';  a[i,0]:=' '; a[i,9]:=' '  
end; 
 k:=0; 
 for i:=1 to 8 do 
 for j:=1 to 8 do 
 if a[i,j]<>' ' then
begin 
 k:=k+1; U(i,j)  
end;  
write(k); 
 close(output) 
end. 

1) V=x*y*G
G - глубина изображения 
C - количество цветов
c=2^G => g=6
V=(2^7 * 2^8 * 6)/2^13 = 24
ответ 24
(2^13 т.к. в килобайтах)

2) V=(2^7 * 2^7 * 5)/2^13=10
ответ: 10

3) V=(2^6 * 2^7*7)/2^13=7 
ответ: 7

4) V=(2^6 * 2^8 * 8)/2^13=16
ответ: 16

5) V=(2^5 * 2^10 * 7)/2^13=28
ответ: 28

6) V=(2^9 * 2^10 * 6)/2^13=384
ответ: 384

7) V=(2^9 * 2^8 * 5)/2^13=80
ответ: 80

8) V=(2^7*2^9*4)/2^13=32
ответ: 32

9) V=(2^7 * 2^8 * 3)/2^13=12
ответ: 12

10) V=(2^7 * 2^7 * 8)/2^13=16
ответ: 16

11) V=x*y*G; G=V/(x*y)
V=24*2^13
x*y=2^7*2^8 => G=(24*2^13)/(2^15)=8
т.к. c=2^G => c=2^8=256 цветов.
ответ: 256

12) G=(10*2^13)/(2^14)=5
c=2^5=32 цвета 
ответ: 32

13) G=(7*2^13)/(2^13)=7
c=2^7=128 цветов
ответ: 128

14) G=(16*2^13)/(2^14)=8
c=2^8=256 цветов
ответ: 256

15) G=(28*2^13)/(2^15)=7
c=2^7=128
ответ: 128