Бригаде строителей поручили уложить квадратной плиткой пол на кухне в виде шахматного узора. но строители работали не слаженно, и когда весь пол уже был уложен, оказалось, что в некоторых местах плитки одинакового цвета граничат друг с другом. по заданному замощению определите, какое минимальное число строителей могло укладывать плитку. входные данные входной файл input.txt содержит восемь строк, состоящих из восьми символов w и b – полученное замощение. символ w обозначает плитку белого цвета, а символ b – чёрную. выходные данные в выходной файл output.txt нужно вывести одно число - искомое число строителей.

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. 

прости мне нужно 50 б

Объяснение: