Дайте несколько возможных общих имён каждой группе объектов.Выберите из них самое подходящее.ответ обоснуйте;а)Буратино,Мальвина,Пьеро,Артемон;б)12 месяцев,Морозко,золушка,синяя борода;в)бишкек,Ош,Каракол;г)Ак-бура,Кокомерен,Кара-Дарыя,Бишкек;д)Бишкек,Ош,Нарын. 9.Назовите для каждого из приведенных действий два предмета,с которыми указанное действие человек выполняет по разному:а)собрать;б)заполнить;в) открыть;г)связать;д)включить;е)сложить;ж)измерить;з)поймать. 13.Дайте наиболее точное общее имя каждой группе объектов:а)Кыргызстан,Казахстан,Россия;б)Кыргызстан, Узбекистан,Таджикистан;в)Каракол,Ош,Нарын;г)Каракол ,Чолпон Ата,балыкчы;д)Ыссык куль,Байкал, Балхаш;е)Ыссык куль,сон куль,сатып куль;ж)принтер,монитор,клавиатура;з)клавиатура,сканер,мышь;и)тополь,облепиха,тюльпан;к)яблоня,груша,вишня.
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.