Cod 2-0-1-8 it is our year
Половина пруда на 9 день. т.к каждый день *2
9день это половина полного пруда.
2 в 9 степени это 512 листьев
если степени ещё не проходили , просто по умножай на 2
2 4 8.... 128 256 512
1 12
2 2,3,4,9
3
var
n, m: longint;
d: integer;
begin
read(n);
m := 0;
while n > 0 do {1 на 0}
begin
d := n mod 10;
if d < 9 then begin
m := 10 * m + d; {домножили на 10}
end;
n := n div 10;
end;
write(m);
end.
50 МБайт - 1м30с=90с
х МБайт - ? 40с с упак/распак=13с
40-13=27(с - передача упак.док.)
х=50 МБайт * 27 с / 90с =15 МБайт
Ответ: 15 МБайт весит упакованный документ
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество спичек:');
var (n2,n4):=(n div 2, n div 4);
Writeln('Максимальная площадь: ',n2=2*n4?n4*n4:n4*(n4+1))
end.
<u>Пример</u>
Количество спичек:1 4
Максимальная площадь: 12