Напишите программу на языке Pascal ABC для нахождения наибольшего числа и их количества, которые удовлетворяют

Задача: Нахождение наибольшего числа и их количества, удовлетворяющих условиям

Пояснение:
Чтобы решить эту задачу, мы будем искать наибольшие числа, которые удовлетворяют двум условиям: произведение разрядов должно быть больше 35 и один из разрядов должен быть равен 7.

Мы можем использовать цикл for для перебора всех чисел в заданном диапазоне от 8800 до 55535. Для каждого числа, мы будем проверять оба условия: произведение разрядов и наличие цифры '7'.

Программа будет подсчитывать количество таких чисел и находить наибольшее из них.

Пример использования:

pascal

program MaxNumbers;



var

   number, maxNumber, count: integer;

   digit1, digit2, product: integer;



begin

   count := 0;

   maxNumber := 0;



   for number := 8800 to 55535 do

   begin

       digit1 := number div 1000;

       digit2 := number mod 10;

       product := digit1 * digit2;



       if (product > 35) and ((digit1 = 7) or (digit2 = 7)) then

       begin

           count := count + 1;

           if number > maxNumber then

              maxNumber := number;

       end;

   end;



   writeln('Количество чисел, удовлетворяющих условию:', count);

   writeln('Наибольшее число, удовлетворяющее условию:', maxNumber);

end.

Совет: Всегда приступайте к решению математических задач по шагам. Здесь мы разбили задачу на несколько этапов: расчёт произведения разрядов, проверка условий и подсчёт чисел, удовлетворяющих условию.

Упражнение: Сколько чисел удовлетворяет условию задачи в интервале [8800; 55535]? Какое из этих чисел является наибольшим?