<span>program fofgogjoj;
var
amebi:integer;
i:integer;
begin
amebi:=1;
for i:=1 to 24 do
begin
if i mod 3 = 0 then
begin
Write('Время ',i,' ');
amebi:=amebi*2;
Write('Амебы ',amebi);
writeln;
end;
end;
end.</span>
a) Максимальное значение суммы разрядов равно 18 (получется как 9+9).
b) Разряды результата разбиватются на два числа, первое из которых не может превышать второе.
214 разбивается на 2 и 14. Такой результат недопустим: если сумма двух чисел была равна 2, то никакое из этих чисел не даст 14 во второй сумме.
148 разбивается на 14 и 8. Такой результат недопустим: нарушен порядок следования сумм.
145 разбивается на 14 и 5. Такой результат недопустим: нарушен порядок следования сумм.
142 разбивается на 14 и 2. Такой результат недопустим: нарушен порядок следования сумм.
514 разбивается на 5 и 14. Такой результат допустим.
814 разбивается на 8 и 14. Такой результат допустим.
114 разбивается на 1 и 14. Такой результат недопустим: если сумма двух чисел была равна 1, то никакое из этих чисел не даст 14 во второй сумме.
Ответ: 2.
Var
n,ed,des,sot,tis:integer;
S:real;
Begin
Readln(n);
ed:=n mod 10;
des:=n div 10 mod 10;
sot:=n div 100 mod 10;
tis:=n div 1000 mod 10;
S:=ed*des*sot*tis;
<span>Writeln(s);
end.</span>
Тут суть в чем, они записали эти формулы и включили их отображение (Формулы-Зависимости формул-Показать формулы), а тебе нужно наоборот, записать так, чтобы вместо формул было решение. Ну тут делаешь так, записываешь в Excel эти формулы и он должен сам тебе посчитать
<span> Алле – 9, Вика-10, Борису – 11, Денису – 13, Соне – 12.</span>