Амам-мама апап-папа околбя-яблоко и т.д.
Чтобы число было максимальным нужно, чтобы на первом месте стояли самые большие цифры. Это две двойки подряд.
Таких чисел 2:
221121122121
221212211211
Видно, что второе число больше, т.к у первого на 4-м месте - 1, а у второго 2
Ответ 221212211211
1 задание <span>а) </span>Ваня решает у доски задачу;
Хранение информации (в мозге Вани)
Обработка информации (оперирование исходной информацией для получения новой по определенным правилам)
Передача информации (От Вани – классу, используя доску)
<span>б) </span>Оля слушает по радио новости;
Передача информации (от радио – Оле, используя динамики)
Хранение информации (в мозге Оли)
<span>в) </span>Дима учит правило;
Хранение информации (внешняя память, книга)
Передача информации (от книги – Диме, используя текст)
Хранение информации (в мозге)
<span>г) </span>Саша и Вова разговаривают по телефону;
Хранение информации (в мозге у Саши)
Передача информации (от Саши – Вове, используя телефон)
Хранение информации (в мозге у Вовы)
<span>д) </span>Женя отправляет SMS-сообщение;
Хранение информации (в мозге у Жени)
Передача информации (от Жени – получателю, используя телефон)
Обработка информации (кодирование по каналу связи, декодирование)
Хранение информации (во внутренней памяти телефона у получателя)
<span>е) Лена рисует план квартиры. </span>
Хранение информации (в мозге у Лены)
Обработка информации (структурирование, математические расчеты)
<span>Хранение информации (внешняя память, лист бумаги/холст)
</span>
Начало: 1-й - x монет, 2-й - y монет
после 1 партии: 1-й - (x+y/2), 2-й - y/2
после 2 партии: 1-й - (x+y/2)/2, 2-й - y/2+(x+y/2)/2
после 3 партии: 1-й - (x+y/2)/2+(y/2+(x+y/2)/2)/2, 2-й - <span>(y/2+(x+y/2)/2)/2
</span>(x+y/2)/2+(y/2+(x+y/2)/2)/2 = 32, <span>(y/2+(x+y/2)/2)/2 = 13
</span>(x+y/2)/2 = 19, <span>(y/2+(x+y/2)/2)/2 = 13
</span>x+y/2 = 38, <span>y/2+(x+y/2)/2 = 26
</span>x+y/2 = 38, <span>y+(x+y/2) = 52
</span>x+y/2 = 38, y = 14
x = 31
Ответ: у первого пирата до начала игры была 31 монета.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
var x1:=a.Where(x->x>0).Min;
var i1:=a.FindIndex(x->x=x1);
var x2:=a.Where(x->x<0).Max;
var i2:=a.FindIndex(x->x=x2);
Swap(a[i1],a[i2]); a.Println
end.
<u>Пример</u>
n= 16
-9 -8 1 -9 2 5 -6 7 5 -9 0 2 -6 -7 3 6
-9 -8 -6 -9 2 5 1 7 5 -9 0 2 -6 -7 3 6