Реши задачу, используя программу MS Excel.

Алина отправилась в магазин за покупками. Девушка купила пачку молока за 31 руб., две упаковки замороженных овощей, заплатив за каждую 112,87 руб.
Три пачки 2 % творога, заплатив за каждую пачку 32,35 руб. Пять килограммов мяса. Один килограмм мяса стоил в магазине 174,6 руб. Сколько денег Алина потратила в магазине?

ответ:
руб.

Минулого літа я з батьками відпочивав на морі. Ми часто приходили на пляж поблизу невеличкої пристані. Хлопчикам дуже подобалося стрибати там у воду. Якось я помітив, що десь по обіді біля пристані з'являється величезний чорний собака. У нього довга шерсть, блискучі карі очі. За такої літньої спеки він відразу кидається в море й пливе ближче до того місця, де збираються стрибуни. Там він очікує хлопчиків чи дівчаток, які будуть стрибати у воду. Спершу було незрозуміло, чому він пливе саме туди. Та підійшовши ближче, я усе второпав. Собака чекає, поки хтось стрибне, випірне, а він уже поруч, і дітлахи із задоволенням хапаються за його спину, загривок або просто за шерсть, навіть за хвоста. І Дар (так кличуть собаку) із усіх сил прямує до берега. Усім дуже весело. Одного разу прийшов Ігор Іванович — хазяїн собаки, і я запитав про дивну поведінку Дара. Ігор Іванович розповів, що це сталося кілька років тому. Маленька дівчинка стояла на пристані, оступилася і впала у воду. Дорослі кинулися допомагати їй, але Дар випередив усіх. Дівчинка вхопилася рученятами за шерсть собаки, а він із усіх сил чимдуж поплив до берега. І з тих пір він нібито рятує всіх дітей, які бавляться на пристані. Мені теж було приємно пливти до берега, тримаючись за чорну спину Дара.

Представим куб в виде графа его каркаса. Пронумеруем все вершины куба цифрами от 1 до 8. Задача сводится к обычному обходу в ширину. Для четных N ответ будет 0, т.к. нельзя дойти на противоположную вершину за четное кол-во шагов. ответ будет расти в геометрической прогрессии в зависимости от N. Программа:

const
  m: array[1..8, 1..8] of byte = 
 ((0, 1, 1, 1, 0, 0, 0, 0),
  (1, 0, 0, 0, 1, 0, 1, 0),
  (1, 0, 0, 0, 1, 1, 0, 0),
  (1, 0, 0, 0, 0, 1, 1, 0),
  (0, 1, 1, 0, 0, 0, 0, 1),
  (0, 0, 1, 1, 0, 0, 0, 1),
  (0, 1, 0, 1, 0, 0, 0, 1),
  (0, 0, 0, 0, 1, 1, 1, 0));
  
var
  n, i, j, k: integer;
  a: array[0..100, 1..8] of int64;
begin
  read(n);
  a[0, 1] := 1;
  for k := 1 to n do
    for i := 1 to 8 do
      for j := 1 to 8 do
        if m[i, j] = 1 then
          a[k, i] := a[k, i] + a[k - 1, j];
  write(a[n, 8]);
end.