Придумайте натуральное число которое удовлетворяет следущим условиям: 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

const n = 10; //В константе n указываем количество элементов в массиве

var a:array[1..n]of integer;

i,s1,s2:integer;

begin

write('Массив: '); //Вывод на экран слова "Массив: "

for i:= 1 to n do //Цикл с параметром для последовательной обработки массива

begin

a[i]:= random(90)+10; //Заполнение массива случайными числами из промежутка [10,99]

if i<6 then s1:=s1+a[i] else s2:=s2+a[i];//Сложение первых 5 элементов массива и последних 5 элементов массива

write(a[i],'  ') //Вывод на экран массива в строку

end;

writeln; //Переход на новыю строку

//сравниваем средние арифметические и пишем выводы

if s1/5=s2/5 then write ('Cреднее арифметическое первой и во второй половин массива равны ',s1/5,' = ',s2/5) else

if s1/5>s2/5 then write ('Cреднее арифметическое первой половины массива больше среднего арифметического второй половины массива ',s1/5,' > ',s2/5) else  

write ('Cреднее арифметическое второй половины массива больше среднего арифметического первой половины массива ',s2/5,' > ',s1/5)

end.

")

   a.append(k)

l = 0

for i in range(len(a)):

   if a[i]>=3:

       l = l+1

       a[i] = a[i]-3

       if l == three:

           break

print(l,"тройки")

print(a)

j = 0

for i in range(len(a)):

   if a[i]>=2:

       j = j+1

       a[i] = a[i]-2

       if j == two:

           break

print(j,"двойки")

print(a)

m = 0

for i in range(len(a)):

   if a[i]>=1:

       m = m+1

       a[i] = a[i] - 1

       if m == one:

           break

print(m,"одиночки")

print(a)

if l>=three and j>=two and m>=one:

   print("YES")

else:

   print("NO")

Объяснение:

надеюсь в коде разберешься )

написано в питоне