Начало: 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 монета.
<h3>PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(30, -50, 50);
a.Println;
Writeln('Сумма нечетных значений равна ', a.Where(t -> t.IsOdd).Sum);
var n := ReadInteger('A=');
Print('Искомые индексы:');
a.Select((v, i)-> (v, i + 1)).Where(t -> t[0] > n)
.Select(t -> t[1]).Println;
n := ReadInteger('k=');
if a.Any(t -> t mod n = 0) then Println('Есть кратные')
else Println('Нет кратных')
end.
<span>C:/библиотека /повесть /летопись </span>
за 128 секунд вася пробегает 1024м.и это на самом деле 65536см
тогда за одну секунду он пробегает
65536/128=512 см
100 метров=10000см
10000/512=19,5(раз по 512 см в стометровке.)
тогда В реальности вася пробегает 100 метров за 19,5 секунд
дай мне лучшее решение)