Наливаем в 9 литровое. Из него переливаем в 5 литровое. в 9 литровом останется 4 литра. Выливаем из 5 литрового воду и переливаем туда эти 4 литра. Затем набираем в 9 литровое снова воду и выливаем 1 литр в 5 литровое, т.к. там уже есть 4 литра. В 9 литровом останется 8 литров. Выливаем всю воду из 5 литрового и переливаем из 9 литрового 5 литров. В 9 литровом останется 3.
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var k,s:BigInteger;
(k,s):=(2,2); // две травинки и всего две
for var d:=2 to n do begin k:=2*k+1; s+=k end;
Writeln('В день ',n,' принесено травинок: ',k,', всего: ',s)
end.
<u>Примеры</u>
n= 5
В день 5 принесено травинок: 47, всего: 88
n= 30
В день 30 принесено травинок: 1610612735, всего: 3221225439
n= 365
В день 365 принесено травинок: 112730043973143994938695068645888177314032762347599353793949966633546033205501205286257551922468897745532878847, всего: 225460087946287989877390137291776354628065524695198707587899933267092066411002410572515103844937795491065757328
Var
mas: array[1..15] of integer;
i, v, q: integer;
begin
randomize;
q:=100;
mas[1]:=random(q);
for i:=2 to 15 do begin
repeat
v:=random(q);
if v<nas[i-1] then Inc(q, 20);
until v>mas[i-1];
end;
mas[i]:=v;
writeln('полученный массив');
for i:=1 to 14 do
write(mas[i],', ');
write(mas[15]);
end.
полученный массив
15, 18, 19, 25, 48, 49, 51, 60, 65, 90, 91, 98, 125, 140, 150
A = 18; b = 2
1) a = 36
2) b = 0
3) c = 36
Ответ: c = 36