<span>Shift + F10 - в данный момент
Еще можно просто нажать правой кнопкой мыши на выбранный объект</span>
P = 1, i = 1
<h2>1 цикл</h2>
P = P · i = 1 · 1 = 1
i = i + 1 = 1 + 1 = 2
2 > 3 ? false
<h2>2 цикл</h2>
P = P · i = 1 · 2 = 2
i = i + 1 = 2 + 1 = 3
3 > 3 ? false
<h2>3 цикл</h2>
<u>P = P · i = 2 · 3 = 6</u>
i = i + 1 = 3 + 1 = 4
4 > 3 ? True
Выход из цикла
<h2>Ответ</h2>
B
F(153) = F(152) + 153 = F(151) + 152 + 153 = F(150) + 151 + 152 + 153 = ... = F(1) + 2 + 3 + ... + 153 = 1 + 2 + 3 + ... + 153 = 153 * 154 / 2 = 11781
<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