Br Br WS r B 14 борсукам та 14 кроликам виділили для їхніх нірок по r B Br ділянці на полі розмірами 8*8. Літерою В позначені ділянки r Для борсуків, літерою — ділянки для кроликів. Всі звірята дотримуються правила: В r В rir В B r Якщо кількість сусідів його виду менша за кількість сусідів іншого виду, звірятко відмовляється B B r B поселятись на такій ділянці. B r Тому бобер-розпорядник поля здійснює велике переселення B за таким алгоритмом: r В 1. Починаючи з лівого верхнього кутка, він послідовно проходить всі рядки зліва направо і перевіряє, чи виконується вказане правило для кожного з кроликів. 2. Якщо правило виконується, кролик поселяється на цю ділянку. 3. Якщо правило не виконується, здійснюється пошук придатної ділянки у такому ж порядку: починаючи з лівого верхнього кутка, по рядках зліва направо. Кролик зразу ж переселяється на нову ділянку. 4. Після перевірки всіх кроликів, операції 1-3 виконуються для всіх борсуків. Тобто, першим перевіряється кролик з лівої верхньої клітинки. Його сусідом в один борсук. Тому першу літеру е потрібно перетягнути у другу справа клітинку верхнього ряду. До іть бобру виконати вказаний алгоритм.
ответ:
1.
13, вроде бы
1) абдик
2) абджк
3) абвдик
4) абвджк
5) абвжк
6) авжк
7) авджк
8) авдик
9) агек
10) агвжк
11) агвджк
12) агвдик
13) агежк
2.
1.абеил
2.абезл
3.абвеил
4.абвезл
5.абвзл
6.авзл
7.авезл
8.авеил
9.агзл
10.агжзл
11.агжкл
12.адгзл
13.адгжзл
14.адгжкл
15.аджзл
16.аджкл
3.количество путей в город л = сумме путе в города и, з, ж и к (и(3)+з(10)+ж(3)+к(3))=19
4.правильный ответ: 12.
5.в подобных анализ начинают с конечного города (в нашем случае - g). в город g можно попасть из d, f и e ⇒ k(g) = k(d)+k(f)+k(e).
аналогично
k(d) = k(b) + k(f) = 2 + 4 = 6;
k(f) = k(b) + k(c) + k(e) = 2 + 1 + 1 = 4;
k(e) = k(c) = 1;
k(b) = k(a) + k(c) = 1 + 1 = 2;
k(c) = k(a) = 1
k(g) = k(d)+k(f)+k(e) = 6+4+1 = 11
объяснение:
вот мой г**нокод на javascript с одного онлайн-курса, но с использованием while. скину сотку на телефон любому, кто в нем разберется:
function cycle(a, b) {
while(a ! = b) b = a> b ? [a,a=b][0]-a : b-a
return a;
}
но поскольку я вижу сверху ключевое слово repeat, полагаю, нужно это сделать в pascal. ради б-га:
var a,b: integer;
begin
a : = 32;
b : = 32;
while not (a = b) do
begin
if a > b then begin
a : = a - b;
end else
b : = b - a;
end;
writeln(a);
end.