У меня есть задача:
Нужно подсчитать сумму всех счестливых числел в промежутке [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 -