«Этот лис, кажется, и за человека меня не считает», – подумал Нильс и что было силы дёрнул лиса за хвост. От неожиданности Смирре выпустил гуся. Всего только на секунду. Гусь рванулся вверх и, тяжело взмахивая помятыми крыльями, полетел к озеру.

– Ах, так Смирре. – Ну, ладно же!

И Смирре попробовал было схватить Нильса. Но это было не так-то легко – Нильс крепко, обеими руками, держался за его хвост.

Смирре прыгнул вправо, а хвост повернулся влево.

Смирре прыгнул влево, а хвост повернулся вправо.

Смирре кружился, как волчок, но и хвост кружился вместе с ним, а вместе с хвостом и Нильс.

Напишите функцию circle_tail(), которая будет определять, за кем победа в каждом раунде.

Для этого нужно для каждой введенной строки находить символы, которые в этой строке встречаются в словах до разделителя ##, но не встречаются после него.

Функция может принимать произвольное число аргументов-строк и произвольное число именованных аргументов.

Если именованные аргументы не переданы, то функция просто возвращает список кортежей, в которых для каждой строки определены: (суммарное количество слов в каждой части строки, символы, которые встречаются в словах первой части, но не встречаются в словах второй).

Если передан именованный аргумент in_order и он имеет значение True, то кортежи в списке, а также буквы в кортеже, должны быть упорядочены по возрастанию. Если значение False, то по убыванию.

Если передан именованный параметр shift, то сначала всю строку нужно сдвинуть влево на количество позиций, равное значению этого аргумента (то есть столько символов из начала строки переставить в конец).

Ввод
data = ['This Fox does not even seem to think##I am human', 'Nils thought##pulled the Foxs tail as hard as he could', 'In surprise Smirre released the goose.##Just for a second.']
print(*circle_tail(*data), sep="\n")

Вывод
(11, 'vFsextTiokd')
(11, 'gN')
(10, 'mlSghpiI')

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. 

Замечание надеемся, что вы еще не забыли о позиционном принципе записи чисел в любых системах счисления (значение цифр, количество которых ограничено, зависит от положения в числе, от ее позиции).в данный момент мы делаем шаг в сторону абстрагирования от конкретных значений цифр и начинаем считать только количество знакомест (позиций), которое в принято называть "разрядом", а совокупность разрядов (знакомест) — "разрядностью". определение разряд в арифметике — это место, занимаемое цифрой при записи числа. например, в десятичной системе счисления цифры первого разряда — это единицы, второго разряда — десятки и т. д. но арифметические законы, которые кажутся привычными в десятичной системе счисления, все без исключения действительны и для двоичной системы счисления. двоичные числа также можно складывать, вычитать, перемножать и делить с использованием тех же приемов школьного курса арифметики. отличие заключается только в том, что используются всего две цифры. кроме того, как мы уже выяснили, в двоичной системе счисления каждый разряд — это бит и его значение зависит от позиции и равно соответствующей степени числа "2". определение разрядность двоичного числа — это количество знакомест (разрядов) или количество битов, заранее отведенных для записи числа. пример десятичное число "2" может быть записано различными способами в зависимости от разрядности двоичного числа: как "10", если разрядность равна двум; как "0010", если разрядность равна четырем; как "00000010", если разрядность равна восьми. обратите внимание, что последний вариант соответствует записи десятичного числа "2" в пределах одного байта информации. разрядность двоичного числа интересует нас в связи с тем, что это количество разрядов (позиций или знакомест) обеспечивает определенный набор возможных двоичных чисел, которые, как мы уже договорились, могут служить , с которых происходит кодирование любых видов информации: собственно чисел, текстов, графических и цветных изображений, звуков, анимации и видео. осталось только выяснить, каким образом разрядность влияет на количество информации (двоичных кодов), котоую можно получить с определенного количества разрядов. однако прежде следует учесть одну особенность двоичных чисел, нашедшую применение в компьютерных технологиях, — это фиксированные значения разрядности двоичных чисел.