var
x, y: real;
k: integer;
begin
k := 0;
Read(x, y);
while (x <> 0) or (y <> 0) do
begin
if (x < 0) and (y > 0) then
k := k + 1;
Read(x, y)
end;
Writeln(k);
end.
2 кб = 2000 б (бо приставка к (кіло-) борівнює 10³=1000 )
<span>соответственно и 2000 б ≠ 3 кб</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 монета.
Первый вопрос - первое вложение. Второй - два остальных.