В ячейки столбца D (Израсходовано) введите формулу вида =C5-B5 (это формула для ячейки D5, в ячейках D6:D16 - аналогично).
В ячейки столбца E (Сумма) введите формулу вида =ЕСЛИ(D5<=100;D5*1,5;ЕСЛИ(D5<300;D5*1,8;D5*2))
(это формула для ячейки E5, в ячейках E6:E16 - аналогично).
===== PascalABC.NET =====
begin
var a := ArrRandom(19, 27, 74);
a.PrintLines
end.
<h3>// PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
if ReadInteger('Введите x:').IsOdd then Print('Это нечетное число')
else Print('Это четное число')
end.