Pascal посчитать количество семерок в диапазоне ускорение алгоритма

[Izobara]

Ограничение по времени: 0 .5 секунд
В строке записаны все подряд натуральные числа от некоторого N до нек-рого M
(гарантировано N ≤ M ) . Сколько в этой строке записано копий цифры 7?
16 22
Ответ: 1
43 87
Ответ: 15

Мое решение слишком медленное для ограничения для n в миллиард

var
  m, n, i, j, index: longint;
  temp: string;
 
begin
  assign(input, 'dig7.dat');
  Reset(input);
  assign(output, 'dig7.sol');
  rewrite(output);
  Read(m, n);
  for j := m to n do
  begin
    str(j, temp);
    for i := 1 to length(temp) do
      if temp[i] = '7' then inc(index);
  end;
  Write(index);
  close(input);
  close(output);
end.

Надо бы ускорить.

Добавлено через 15 минут
Делал что-то вроде

while temp<>0 do
if temp mod 10 = 7 then  inc(index);
temp:=temp div 10

То же самое - времени нет.

[denrubun]

for i := 1 to length(temp) do
      if temp[i] = '7' then inc(index);

вы считаете длину каждую итерацию цикла, здесь прога и проседает, сделайте так
leng = length(temp)
for i:= 1 to i do ...

[Izobara]

Спасибо, но не помогло - в полсекунды не влазит все равно.

[denrubun]

а насколько хоть разогналось, сколько не хватает?

[Izobara]

Сообщение от denrubun

а насколько хоть разогналось, сколько не хватает?

Чесно - без понятия. На сервере проверяет. Но маленькие проходило и проходит за 0.004 с. Ограничение в миллиард как бы намекает...

[denrubun]

а ой я совсем не правильно понял вашу задачу)
теперь понял и дела обстоят так:
вы знаете что например от 1 до 100 семь встречается 1 раз на каждую десятку +
ровно 10 раз если эта десятка 70 - 79; ну дальше вы наверно справитесь, ищите закономерность появления семерок
главное не надо читать все числа и сравнивать их) только первое и последнее

п.с. олимпиадная задачка чтоль?

[Izobara]

Хм, я, собственно, так и думал. Только решил проверить, что народ скажет. Будем реализовывать. Спасибо.

[Abstraction]

Подсказка: пусть у нас задан интервал 974615 - 3573914. Его можно разбить:
974615-974619 (5+1),
974620-974699 (80+10+8),
974700-974999 (300+100+30+30),
975000-979999 (5000+1000+500+500),
980000-999999 (2000+2000+2000+2000),
1000000-2999999 (200000+200000+200000+200000+200000 +200000),
3000000-3499999 (50000+50000+50000+50000+50000),
3500000-3569999 (7000+7000+7000+7000),
3570000-3572999 (3000+300+300+300),
3573000-3573899 (900+100+90+90),
3573900-3573909 (10+1),
3573910-3573914 (5)
Всего (если нигде не напутал) - 1499660 семёрок, считается почти устно. Осталось научить этому фокусу компьютер...

[Izobara]

Спасибо, попробуем.

[Izobara]

Ужас, не получается - и все.