Чтобы пронумеровать страницы книжки было применено n цифр. Найдите количество страниц

Отыскать точное кол-во страниц невероятно. Можно только найти спектр значений, в котором оно находится: 1 цифра - от 1 до 9, 3 числа - от 100 до 999 и т. д.

Математически: от 10 ** (n - 1) до 10 ** n - 1 включительно. Где ** - строительство в степень.

Если же n - общее кол-во цифр на всех страничках, то для первых 9 страничек пригодится 9 цифр, для следующих 100 страничек - 200 цифр, для последующих 1000 страничек - 3000 цифр и т. д.

Добавляем 1 к n и получаем ряд 10, 200, 3000, 40000, 500000, 6000000, 70000000, 800000000

readln(n);
inc(n);
mul := 100000000;
coun := -1;
for i := 8 downto 1 do begin
tmp := n div (mul * i);
n := n mod (mul * i);
mul := mul div 10;
inc(count, tmp * mul)
end;
inc(count, n);
writeln(count)