While n > 0 do begin
S := S + n mod 10;
n := n div 10;
<span>end;а</span>
7^24 можем убрать в силу большого значение и того что это 1 на 25 разряде. Остается 7^16-7. Заметим что это выражение будет таким 10...0(16 нулей) - 10 = 6...60 и таких 6 будет соответственно 15.
Делим нацело 8, 15, 13 на 3; 20, 60, 45 на 10; 11, 40, 20 на 5 и выбираем минимальные значения
Сахара нужно: 2
Яиц нужно: 5
Муки нужно: 4
Цикл for будет повторяться 6 раз, значит программа на выходе выдаст 72