<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
uses GraphABC;
begin
Window.SetSize(800,600);
Draw(x->x=1?1.0:10/(x-1)+5*Sin(x),-20.0,20.0)
end.
<u>Результат приведен во вложении</u>
var d,p,h:real;
begin
readln(d,h);
p:=3.14;
writeln('Площадь бака ', p*d*h)
d:=d*d
writeln('Площадь крышки ', p*d);
end.
Начало: 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 монета.
1 МБ = 1024 Кбайт
0,5 МБ = 512 Кбайт
1024 * 15 + 512 = 15872 Кбайт
Ответ: 15872 Кбайт
===== PascalABC.NET =====
begin
var n := ReadInteger('Длина последовательности:');
ReadSeqInteger('Вводи:', n).SortedDescending.Println
end.