<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
В семеричной системе счисления используются цифры 0..6
Количество искомых цветов проще всего вычислить простым перебором:
1) 100 - 1
2) 200, 201, 210 - 3
3) 300, 301, 302, 310, 311, 320 - 6
4) 400, 401, 402, 403, 410, 411, 412, 420, 421, 430 - 10
5) 500, 501, 502, 503, 504, 510, 511, 512, 513, 520, 521, 522, 530, 531, 540 - 15
6) 600, 601, 602, 603, 604, 605, 610, 611, 612, 613, 614, 620, 621, 622, 623, 630, 631, 632, 640, 641, 650 - 21
Итого: 1+3+6+10+15+21 = 56
1)
var a:array [1..4] of integer;
var x,i,i1: integer;
begin
writeln('Введите 4-х значное число');
read(x);
for i:=1 to 4 do begin
a[i]:=x mod 10;
if a[i] mod 3 = 0 then begin
i1:=i1+a[i];
end;
x:=x div 10;
end;
write(i1);
<span>end.
2)
Немного не понял:
var a:array [1..4] of integer;
var i,n,y: integer;
begin
n:=1;
for i:=1 to 4 do begin
writeln('Введите ',n, ' число');
read(a[i]);
if a[i]<0 then y:=y+1;
n:=n+1;
end;
write('Отрицательных чисел: ',y);
end.
<span>
3)
var i,y,x: integer;
begin
writeln('Выберите действие: 1)y=x^3 + x; 2)y=(x+1)^2; 3)y=sqr(x+4)');
read(i);
if i=1 then begin
writeln('Введите x');
read(x);
write('y=',(x*x*x)+x);
end
else begin
if i=2 then begin
writeln('Введите x');
read(x);
write('y=',(x+1)*(x+1));
end
else begin
if i=3 then begin
writeln('Введите x');
read(x);
write('y=',sqrt(x+4));
end;
end;
end;
end.<span>
</span></span></span>
<span>Рассмотрим исходное число 171673₈
Самая левая цифра 1 в двоичной записи имеет два нуля, но поскольку цифра самая левая, то они оба незначимые и не учитываются. В остальных цифрах все нули значимые.
А теперь вместо каждой цифры запишем количество нулей в ней и сложим написанные числа:
</span><span>0+2+1+0+1=4
Ответ: 4
</span>