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