Для любого целого К обозначим количество цифр в его десятичной записи D(К). Дано натуральное число n. Вычислить Сумма n от i = 1

function Factorial(n: integer): LongInt;

begin

if n = 0 then Factorial := 1 else Factorial := n * Factorial(n - 1);

e...