Var
n: int64;
function f(n: int64): int64;
begin
if(n > 0) then f := f(n div 10) + (n mod 10);
end;
begin
readln(n);
write(f(n));
end.
Var ch: char;
begin
write('Введите символ: '); read(ch);
writeln('Предыдущий символ: ', pred(ch), ' | ', 'Следующий символ: ', succ(ch));
<span>end.</span>
1) 1425-225=1200(мух.)-улетели
2) 1200+213=1413(мух)-обратно прилетели
Ответ:1413 мух веселилось в комнате
Переберём все числа в диапазоне [10; 100). Сохраним наше текущее число в отдельную переменную. Пока копия числа больше нуля, будем умножать переменную произведения этого числа на последнюю цифру числа (% 10). Потом удалять последнюю цифру у копии числа (// 10).
<h3>Код</h3>
for i in range(10, 100):
i1 = i
pr = 1
while i1 > 0:
pr = pr * (i1 % 10)
i1 = i1 // 10
if i == pr*2:
print(i)
Насколько я знаю из опыта, взаимосвязь - задача <em>интерфейсов</em>:)