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

[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

[Witaliy]

У меня еще есть такая задача:
Счастливые числа єто те числа, которые делятся одновременно и на x и на y и на z
Найти все такие числа в промежутке [a;b].
Например
2 3 4
12 24
Результат: 2
(это числа 12, 24).

Вот мой код:

program my;
var x,y,z,a,b,i,res : longint;
function is_Lucky(c : longint): boolean;
begin
if (c mod x = 0) and (c mod y = 0) and (c mod z = 0) then
 is_Lucky := true
else
is_Lucky := false;
end;
begin
readln(x,y,z);
readln(a,b);
res := 0;
for i := a to b do
 if is_Lucky(i)= true then
  inc(res);
writeln(res);
end.

Сново не знаю как оптимизировать. Возможно тоже надо делать while?

Спасибо огромное.