Только полное решение каждого номера

// pascalabc.net 3.1, сборка 1174 от 22.02.2016 begin   for var a: =9 downto 1 do       for var b: =9 downto 0 do           for var c: =9 downto 0 do               for var d: =9 downto 0 do                   if (7 in [a,b,c,d]) and (4 in [a,b,c,d]) and                       (2*(a+b+c)+d=39) then begin                           writeln(a,b,c,d,c,b,a); exit end end. результат выполнения программы: 9437349

#код на ruby 2.2.3p173 (9999).downto(1000) {|i|       s = i.to_s()       s = s[0..2] + s.reverse       n = s.to_i       next if not s.include? ('7')       next if not s.include? ('4')       sum = 0       while n > 0 do             sum += n % 10             n = n / 10       end       next if sum ! = 39       p s       break; } ответ 9437349