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

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