Question

Придумайте натуральное число которое удовлетворяет следущим условиям:
1.Запись числа состоит из 7 цифр
2.Сумма всех цифр числа равна 39.
3.В записи числа есть хотя бы одна цифра 4
4.В записи числа есть хотя бы одна цифра 7
5.Запись числа является палиндромом,то есть одинаково читается как слева направо,так и справа налево
6.Число является максимальным из всех чисел удовлетворяющих пунктам 1-5

Answer 1

// 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