Файл во вложении. Если я правильно поняла, то каждый день просрочки начисляется пени. Если книга была больше 30 дней
Вариант в Excel.
Лист защищен без пароля, чтобы случайно не повредить формулы.
Снимаете защиту, копируете элементы, получаете ответ.
10 битов, 20 битов, 2 байта, 1 кбайт, 1010 байтов.
Program n1;
var a: array[1..30] of integer;
n,i: integer;
function st(i: integer): integer;
begin
st:=1;
for i:=1 to i do st:=st*2
end;
begin
readln(n);
for i:=1 to n do a[i]:=st(i);
for i:=n downto 1 do write(a[i],' ');
end.