Оптимизация задачи под большые числа Опции

[Witaliy]

Всем привет!

У меня есть задача:
Нужно подсчитать сумму всех счестливых числел в промежутке [a;b].
Счастливые числа - числа которые состоят только из 4 и 7
например
Входные данные:
5 49
Выходные данные:
98
(7+44+47=98)
1 <= A <= B <= 1000000000 (10^9)

Вот моё решение:

{$n+}
program my;
var a,b,i : longint;
    sum : extended;
function isLucky(c : longint) : boolean;
var s : string;
    i,r : integer;
begin
r := 0;
str(c,s);
for i := 1 to length(s) do
 if (s[i]= '7') or(s[i]='4') then
  inc®;
if r = length(s) then
 isLucky := true
else
 islucky := false;
end;
begin
sum := 0;
 readln(a,b);
 if a < 4 then
  a:=4;
 if b > 77777777 then
  b := 77777777;

 for i := a to b do
  if isLucky(i) = true then
   sum := sum+i;
writeln(sum:1:0);
end.

Но программа очень медленно роботает, а ограничение велики. Помогите сделать что-то, что бы можно были делать и под 1 и 10^9.
Спасибо!

Сообщение отредактировано: Lapp - 23.02.2009 3:36

[volvo]

Я, конечно, могу ошибаться, но мне почему-то кажется, что можно вообще выбросить цикл за ненадобностью:

writeln(((b - a) div LCМ(x, y, z)) + 1);

выдаст тебе нужный результат... LCM - это Least Common Multiple - наименьшее общее кратное чисел (НОК)... Как находится НОК было на форуме неоднократно, ищи...